wnc  RLE  COP? 


Research  Note  86-10 


VIDEODISC  INTERPERSONAL  SKILLS  TRAINING  AND  ASSESSlffiNT  (VISTA) : 
SOFTWARE  AND  EVALUATION  DETAILS,  VOLUME  4 


James  E.  Schroeder  and  Frederick  N.  Dyer 
Army  Research  Institute 

Paul  Czerny,  Edward  W.  Youngling,  and  Daniel  P.  Gillotti 
Mellonics  Systems  Development  Division,  Litton  Systems  Incorporated 


ARI  FORT  BENNING  FIELD  UNIT 
Joel  D.  Schendel,  Acting  Chief 


TRAINING  RESEARCH  LABORATORY 
Seward  Smith,  Acting  Director 


U.  S.  Army 


Research  Institute  for  the  Behavioral  and  Social  Sciences 


January  1986 


Approved  lor  pobtic  rol««u;  dUiributkon  uAllmlMd. 


U.  S.  ARMY  RESEARCH  INSTITUTE 

FOR  THE  BEHAVIORAL  AND  SOCIAL  SCIENCES 


I 


i  ^ 


A  Field  Operating  Agency 


under  the  jurisdiction  of  the 


Deputy 


Chief  of  Staff  for 


Personnel 


EDGAR  M.  JOHNSON 
Technical  Director 


WM.  DARRYL  HENDERSON 

COL,  IN 

Commandii^ 


Research  accomplished  under  contract  for 
the  Department  of  the  Army 

Hellenics  Systems  Development  Division,  Litton  Systems  Incorporated 


Ttiii  rtpon.  •!  lubmittid  by  tbt  contractor,  bat  baan  elaarad  fc'  ralaaw  to  Dafania  Tacbnical  Information  Cantar 
(OTIC)  to  comply  with  ragulatory  raouiramanti.  It  bat  baan  givan  no  primary  dittiibution  otbat  than  to  OTIC 
and  will  ba  availabla  only  through  OTIC  or  otbar  raftranca  tarvlcai  lucb  at  tbt  National  Tacbnical  Information 
Saraica  (NTISh  Tba  aitwi.  epinloni,  and/or  findingt  contalnad  in  thii  rapon  ara  tboia  of  tba  authoriil  and 
ihoiild  not  ba  conttruaJ  at  an  official  Oapattmam  of  tba  Army  poiition,  policy,  or  ^ciiion,  unlett  to  dctignaiad 
by  otbar  official  documantation. 


it^  ^ 


UNCLASSIFIED _ 

security  classification  of  this  page  fWh*"  0«<*  BnUnd) 


REPORT  DOCUMENTATION  PAGE 


\.  REPORT  NUMBER 

ARI  Research  Note  86-10 


3 Arc  READ  INSTRUCTIONS 

_ BEFORE  COMPLETING  FORM 

2.  GOVT  ACCESSION  NO.  3.  RECIPIENT'S  CATALOG  NUMBER 


4.  TITLE  (md  Subtitl*) 

VIDEODISC  INTERPERSONAL  SKILLS  TRAINING  AND 
ASSESSMENT  (VISTA) :  SOFTWARE  AND  EVALUATION 
DETAILS,  VOLUME  4 


5.  type  of  REPORT  &  PERIOD  COVERED 

Final  Report 

August  1980  -  March  1983 

6.  PERFORMING  ORG.  REPORT  NUMBER 


7.  AUTHORfA)  ' 

James  E.  Schroeder,  Frederick  N.  Dyer  (ARI),  ^ 

Paul  Czerny,  Edward  W.  Youngling,  and 
Daniel  P.  Gillotti  (Litton/Mellonics) 

9.  PERFORMING  ORGANIZATION  NAME  AND  ADDRESS 

Mellonics  Systems  Development  Division,  Litton 
Systems,  Inc.,  P.O.  Box  2498  2 

Fort  Benning,  Georgia  31905 

It.  CONTROLLING  OFFICE  NAME  AND  ADDRESS 

U.S.  Army  Research  Institute  for  the  Behavioral  - 
and  Social  Sciences  -  Fort  Benning  Field  Unit 
P.O.  Box  2086,  Fort  Benning,  Georgia  31905 

14.  monitoring  agency  NAME  4  AOORESSCtI  dllUtmt  Iraa  CcntntUng  Qtlled) 

U.S.  Army  Research  Institute  for  the  Behavioral  ^ 
and  Social  Sciences.  5001  Eisenhower  Avenue 
Alexandria,  VA  22333-5600 

1«.  distribution  statement  fpHM«R«po»0 

Approved  for  public  release;  distribution  unlimited 


8.  CONTRACT  OR  GRANT  NUMBERT*) 

MDA  903-80-C-0545 


10.  PROGRAM  element,  PROJECT,  task 
AREA  8  WORK  UNIT  NUMBERS 

2Q263743A794 

12.  REPORT  DATE 

January  1986 

13.  NUMBER  OP  PAGES 

156 _ 

IS.  SECURITY  CLASS,  (ol  Mm  tmfiort) 

Unclassified 


ISa.  declasSification/downgrading 
SCHEDULE 


17.  'blSTRIBUTioH  STATEMENT  Vo/  Uia  aSatfaol  mnimtmd  In  Block  JO,  II  tttllcfani  l»o«  BcftoH) 


18.  IUMLEMENTARY  NOTES 

The  Contracting  Officer's  Representative  was  Seward  Smith.  The  VISTA  report 
has  been  published  in  4  volumes;  other  volumes  published  as  follows:  Volume  1, 
ARI  Technical  Report  703;  Volume  2,  appendixes  A  ~  D  in  ARI  Research  Note  86-08, 
and  Volume  3,  appendixes  E  -  J  in  ARI  Research  Note  86-09. 

18.  KEY  WORDS  (Canltiuim  on  immmtdm  midt  II  nmtmmmiy  mid  Idmnlltit  6/  Sleek  iumbmt) 


computer-assisted  instruction  interpersonal  skills 

leadership.  interactive  training, 

counseling,  videodisc 

training  development _  '■  _ _ 

^  ABSTRACT  (IContloiM  mmtmrmtmm  oM*  M  noeo*o««y  mad  tdmmtitr  kr  Week  mmdmt) 

The  Videodisc  Interpersonal  Skills  Training  and  Assessment  (VISTA)  project  was 
initiated  as  a  means  to  use  computer-assisted  training/videodisc  technology  to 
reduce  the  high  training  costs  associated  with  junior  officer  leadership  skills 
training.  Historically  tho  major  problem  was  simulating  subordinates  as  they 
would  probably  respond  in  a  given  leadership  situation;  assessment  center  simu¬ 
lations  and  role  playing  could  train  leadership  skills  but  not  without  high 
personnel  costs  due  to  the  numbers  of  counselors  and  role  players  required. 

(continued)  _ 


FORM 

I  dm  n 


EotnoM  or  t  MOV  tt  i$  obsolete 


UNCUSS  1  FI  ED _ 

SECURITY  classification  OF  THIS  PACE  (WR**!  Omim  Knimtmd) 


UNCLASSIFIED _ 

SECURITY  CLASSiriCATIQN  OF  THIS  PAOEfirhan  Dmta  Bnttnd) 


item  20.  Abstract  (continuation) 


Previous  research  indicated  that  a  videodisc  system  could  successfully 
train  soldier  skills  even  when  only  a  fraction  of  the  capabilities  of 
the  medium  were  used.  Such  a  system  could  be  used  to  supplement  the 
current  role  playing  and,  hence,  reduce  the  number  of  support  personnel 
required. 

-!:krhe  research  effort  included  topic  analysis,  hardware  selection,  software 
development,  scenario  writing,  studio  production,  editing,  and  videodisc 
mastering.  Final  evaluation  of  the  videodiscs  produced  Included  the 
administration  of  two  tests,  a  test  designed  to  measure  the  acquisition 
of  leadership  skills  and  a  subjective  preference  test  designed  to  measure 
user  acceptance.  •  • 

Nine  highly  interactive  videodisc  training  scenarios  covering  20  leader¬ 
ship  problems  were  produced.  Overall  evaluation  results  indicated  a 
VISTA  superiority  followed  by  role  playing  and  programmed  text,  with  the 
majority  of  students  indicating  that  a  combination  of  videodisc  and 
role  playing  would  be  optimal  for  leadership  training.  Results  also 
Indicate  that  although  VISTA  products  were  designed  for  the  Infantry 
Officer's  Basic  Course,  the  problems  addressed  are  probably  common  to 
other  Army  branches  and  should  therefore  be  investigated  for  possible 
application  in  other  training  centers,  ijj,  ,  ■ 
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VIDEODISC  INTERPERSONAL  SKILLS  TRAINING  AND  ASSESSMENT  (VISTA) 


EXECUTIVE  SUMMARY 


Introduction; 

The  U.S.  Army's  VISTA  (Videodisc  Interpersonal  Skills  Training  and 
Assessment)  project  was  initiated  to  determine  whether  leadership  and  counsel¬ 
ing  skills  could  be  trained  using  current  computer-assisted  instruction/ . 
videodisc  technology.  The  target  audience  was  Army  junior  officers  (Second 
Lieutenants  in  the  Infantry  Officer's  Basic  Course  at  Fort  Bennlng,  Georgia). 
Five  government  agencies  and  two  contractors  were  involved  in  this  effort  that 
included  a  front-end  topic  analysis,  hardware  selection,  software  development, 
scenario  writing,  studio  production,  editing,  videodisc  mastering,  and  final 
evaluation.  The  final  evaluation  compared  the  VISTA  products  with  a  program¬ 
med  text  containing  the  same  information  and  role  playing  using  the  same  topic 
themes.  All  seven  VISTA  videodiscs  (nine  scenarios)  were  tested. 


Procedure : 

The  first  stage  of  the  project  involved  a  front-end  topic  analysis,  hard¬ 
ware  and  software  selection,  and  design  of  the  instruction.  In  the  topic 
analysis,  57  candidate  interpersonal  problem  situation  topics  were  generated 
and  rated  by  58  subject  matter  experts  for  difficulty.  Importance,  and  frequency. 
Situations  involving  the  highest  composite  scores  for  the  three  dimensions 
were  subsequently  addressed  in  the  training  scenarios.  Twenty  problem 
situations  were  covered  in  the  9  scenarios  produced  to  date.  The  hardware 
system  selected  comprised  an  Apple  2+  computer,  a  DiscoVisicn  videodisc 
player,  a  Sony  monitor  and  other  assorted  peripherals.  The  software  language 
chosen  woe  Pascal.  Two  instructional  modes  of  presentation  were  designed. 

The  Experiential  mode  simulates  a  roleplaying  situation.  There  is  no  textual 
feedback  and  the  students  can  go  several  steps  off  the  "best  path".  In  the 
Pedagogical  mode,  extensive  textual  feedback  is  presented  and  the  student  is 
never  allowed  to  go  more  than  one  step  off  the  best  path. 

The  second  major  stage  of  the  project  Involved  the  scenario  writing  and 
the  software  development.  A  scenario  authoring  aid  was  developed.  Guidance 
for  the  determination  of  appropriate  alternatives  was  derived  from  the  two 
U.S.  Army  field  manuals  dealing  with  leadership  and  counseling,  subject  matter 
experts,  and  various  theoretical  approaches  for  counseling  and  leadership. 

The  software  was  developed  to  complement  the  instructional  design.  In  addition, 
software  was  developed  to  allow  relatively  simple  entry  of  textual  information 
and  videodisc  frame  numbers  to  expedite  future  videodisc  development  efforts. 

The  final  stage  involved  the  evaluation  of  the  seven  videodiscs  (9 
scenarios).  An  experimental  evaluation  conducted  on  all  training  products 
measured  both  learning  of  leadership  principles  and  the  student's  acceptance 
of  the  new  Instructional  technology. 


ill 


EiaBi 


MK!n!!&RlJililU4ilAlUL^VI^.VtQUUS«U^^ 


Findings : 

The  overall  results  of  the  evaluation  indicated  a  VISTA  superiority 
followed  by  role  playing  and  programmed  text,  respectively,  on  a  test  designed 
to  measure  the  acquisition  of  leadership  principles.  Also,  both  role  playing 
and  videodisc  were  rated  high  on  a  subjective  preference  scale  used  to  measure 
user  acceptance.  Role  playing  was  slightly  but  significantly  higher  than 
videodisc  and  both  videodisc  and  role  playing  were  much  higher  than  the 
programmed  text.  The  great  majority  of  the  students  Indicated  that  a  combin¬ 
ation  of  videodisc  and  role  playing  would  be  optimal  for  leadership  training. 


Products  completed: 

-  Nine  scenarios  which  address  20  problem  areas  have  been  produced  and 
evaluated.  Overall  results  Indicated  a  significant  superiority  of  VISTA 
products  over  both  role  playing  and  programmed  text. 

-  Two  instructional  approaches  designed  to  optimize  the  training  Impact  of  the 
new  technology. 

-  Scenario  authoring  workbook  to  aid  future  scenario  writing. 

-  Generic  software  that  will  control  any  of  the  videodiscs  developed  played 
by  either  of  two  popular  videodisc  players,  with  or  without  maintenance 
of  detailed  student  records,  and  with  choice  of  two  Instructional  modes. 


Utilization: 

-  The  VISTA  products  were  implemented  in  the  Counseling  Laboratory  of  the  lOBC 
in  June,  1983. 

The  following  Is  recommended: 

-  Due  to  the  success  of  the  VISTA  project  and  other  videodisc  training 
projects,  the  U.S.  Army  should  continue  to  Investigate  other  possible  areas 
for  application  of  computer-assisted  Instruction/ videodisc  training. 

-  Develop  standards  la  both  Inirdwarc  and  courseware  structure. 

-  The  VISTA  products  should  serve  as  a  supplement  to  current  leadership 
training  approaches  rather  than  a  replacement  of  those  approaches. 

-  The  lOBC  Counseling  Laboratory  Is  currently  taught  In  two  periods,  one  at 
the  beginning  of  lOBC  and  one  toward  the  end.  Because  of  the  standardized 
format,  role  playing  should  be  conducted  In  the  second  laboratory  as  a 
performance  test  and  the  VISTA  products  should  be  utilized  in  the  early 
laboratory  (while  students  are  at  an  early  stage  In  their  learning  of 
leadership). 

-  Although  the  VISTA  products  wore  developed  for  the  Infantry  Officer's  Basic 
Course,  the  problems  addressed  are  probably  common  to  the  ocher  branches. 
Therefore,  the  VISTA  products  should  bo  Investigated  for  possible  appli¬ 
cation  In  other  training  centers. 
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Part  1 

Functional  Software  Overview 


The  following  discussion  assumes  that  the  reader  has  already  read  and 
understood  the  section  titled  Software  Description  in  the  first  section  of 
this  paper.  The  videodisc  software,  as  a  total  system,  consists  of  two 
separate  programs:  Videodisc  and  LAMP  (Lesson  Administrative  Maintenance 
Program).  Videodisc  is  the  program  that  executes  the  videodisc  lesson.  LAMP 
is  used  to  load  the  information  text  files  for  a  specific  videodisc  lesson. 


Videodisc 


A  brief  description  of  the  files  used  by  Videodisc  will  be  given  followed 
by  a  discussion  of  the  functioning  of  Videodisc  itself.  Videodisc  relies  on 
the  information  stored  in  five  files  for  its  operation.  These  files  are 
INTRO,  TEXT. ONE,  TEXT. TWO,  POINT.ONE,  AND  STUDENT.  INTRO  contains  the  text  of 
the  overview  that  is  presented  to  the  student  at  the  beginning  of  the  lesson. 
This  overview  describes  how  the  program  functions  in  both  the  pedagogical  and 
experiential  modes.  TEXT. ONE  contains  the  text  that  is  displayed  as  feedback 
in  the  pedagogical  mode.  POINT.ONE  contains  information  as  to  where  (in  a 
particular  file)  text  is  located,  how  many  pages  of  text  should  be  accessed, 
the  start  and  stop  frame  numbers  for  the  motion  sequences,  the  number  of  pages 
contained  in  file  INTRO,  and  the  start  and  stop  frame  numbers  for  the  lightpen 
or  touch'*panel  instructions.  STUDENT  contains  the  identification  numbers  of 
the  student  files  that  have  been  used. 

The  following  is  a  discussion  of  the  operation  of  Videodisc  at  a  general 
level.  For  a  more  detailed  understanding  of  how  the  program  works,  refer  to 
the  section  labeled  Information  contt'iined  within  POINT.ONE.  Figure  8  is  a 
simplified  diagram  of  the  data  flow  into  and  out  of  Videodisc.  When  appro~ 
priate,  text  is  brought  in  from  one  of  the  text  files  for  display  on  the 
monitor.  This  text  might  be  the  introduction  to  the  videodisc  lesson  (stored 
in  INTRO),  text  prior  to  and/or  following  the  Vrst  motion  sequence  (stored  in 
TEXT. TWO).  The  main  Information  file,  POINT.ONE,  dictates  how  the  program 
looks  to  the  user.  This  Information  will  be  discussed  In  more  detail  below. 
After  the  student  enters  his  or  her  service  number  at  the  beginning  of  the 
program,  a  file  is  created  under  that  number  (See  Appendix  K,  Part  S)  and  is 
used  to  track  the  student's  performance.  The  service  number,  is  also  stored 
in  the  file  STUDENT  to  assist  in  the  analysis  of  the  student  data. 

Figure  9  is  a  somewhat  detailed  description  of  the  type  of  Information 
stored  in  each  record  of  the  file  POINT.ONE.  The  data  In  record  are  used 
for  various  housekeeping  functions.  When  the  Videodisc  program  is  started, 
the  data  contained  in  record  iS*l  of  POINT.ONE  are  loaded  into  the  program  (Sec 
Appendix  K,  Part  6).  These  data  determine  how  the  lesson  will  look  to  the  user 
and  which  record  of  POINT.ONE  will  be  accessed  next,  contingent  on  the  choice 
made  by  the  student.  If  the  student  chooses  the  pedagogical  mode  of  usage, 
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Fiflufo  8.  Flow  of  data  into  and  out  of  VidoodUc  program. 


the  program  progresses  sequentially  through  the  records  of  POINT. ONE.* 
However,  if  the  student  chooses  the  experiential  mode,  the  program  will 
usually  access  the  records  of  POINT. ONE  in  a  nonsequential  manner. 


Lesson  Administrative  Maintenance  Program  (LAMP) 

The  following  is  a  general  discussion  of  the  system  support  program, 

LAMP.  LAMP  consists  of  two  subprograms.  Structure  and  Transfer  (See  Appendix 
K,  Part  4).  Each  of  the  subprograms  relies  on  counter  files  that  are  asso¬ 
ciated  with  each  of  the  text  files.  The  convention  used  to  name  the  counter 
files  was  to  add  .COUNT  to  the  name  of  the  file.  For  example,  the  counter 
file  for  TEXT. ONE  would  be  TEXT. ONE. COUNT. 

Stiructure  is  used  to  fill  the  file  POINT. ONE  with  the  appropriate  infor¬ 
mation.  It  is  a  general  utility  and  maintenance  program  that  permits  the  user 
to  create,  view,  print  out,  and  modify  the  data  in  POINT. ONE.  Structure  also 
uses  counter  information  stored  in  the  file  POINT. ONE. COUNT 

Transfer  is  used  in  conjunction  with  the  Pascal  Editor  to  create  and 
modify  the  text  files  INTRO,  TEXT. ONE,  TEXT. TWO,  along  with  the  text  portion 
of  POINT. ONE.  The  program  permits  the  user  to  use  the  Editor  to  create  and 
modify  the  text  and  then  provides  for  the  formatting  of  the  data.  The  program 
also  allows  the  user  to  transfer  the  data  back  into  a  raw  text  form  for 
additional  editing.  Finally,  the  program  allows  the  user  to  review  the  text 
in  its  formatted  form  and  to  manipulate  the  data  in  the  counter  files. 


Information  contained  within  POINT. ONE 

The  following  is  a  description  of  the  variables  contained  in  each  record 
of  POINT .ONE.  A  record  exists  for  each  junction  point  of  the  lesson  starting 
with  record  tfl  of  POINT. ONE.  Record  of  POINT. ONE  is  used  for  house¬ 
keeping  functions.  A  discussion  of  these  data  follows  in  the  subsection 
labeled  Information  contained  in  record  #0  of  POINT. ONE.  Information  per¬ 
taining  to  feedback  is  usually  dummied  for  the  experiential  mode  Junction 
points. 

SEQl:  PACKED  ARRAY  (1..2]  OF  STRING  [5)t  This  variable  contains  the 
start  and  stop  values  of  the  first  motion  sequence  of  each  junction 
point. 

SEQ2;  PACKED  ARRAY  (1..5,  1..21  OF  STRING  (5):  This  variable  contains 
the  start  and  stop  values  of  the  motion  sequence  looking  at  the  lieu¬ 
tenant  for  five  potential  choices. 

SEQl;  PACKED  ARRAY  (1..5,  1..4)  OF  STRING  (5);  This  variable  contains 
the  start  and  stop  values  of  the  motion  sequence  looking  at  the  person 


*Thi8  is  the  case  for  the  POINT. ONE  files  created  for  this  contract.  The  data 
do  not  tiave  to  be  loaded  in  this  manner. 
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being  counseled  for  five  potential  choices.  Information  for  two  dif¬ 
ferent  sequences  that  will  be  patched  together  by  the  program  may  be 
loaded  into  this  variable.  For  example  SEQ3[1,1]  and  SEQ3[1,2]  contain 
the  start  and  stop  frame  numbers  for  one  motion  sequence  for  answer  #1. 
While  SEQ3[1,3]  and  SEQ3[1,4]  contain  the  same  information  for  the  second 
motion  sequence. 

ANSWERS;  PACKED  ARRAY  [1..20]  OF  STRING  [40];  This  variable  contains 
the  text  of  the  choices  available  to  the  student. 

POSITIONS;  ARRAY  [1..5,  1..2]  OF  INTEGER;  This  variable  contains  the 
beginning  and  end  line  numbers  of  the  text  for  five  potential  answers. 

SEQMANY;  PACKED  ARRAY  [1..5]  OF  INTEGER;  This  variable  contains  the 
number  of  motion  sequences  to  be  used  to  interpret  SEQ3.  This  number 
must  either  be  1  or  2. 

FEEDMANY;  PACKED  ARRAY  tl..5]  OF  INTEGER;  This  variable  contains  the 
number  of  pages  of  feedback  for  five  potential  choices. 

FEEDWHERE;  PACKED  ARRAY  [1..5]  OF  INTEGER;  This  variable  contains  the 
location  (the  record  number)  of  the  feedback  for  five  potential  choices. 
This  text  is  contained  in  file  TEXT. TWO. 

CORRECT;  INTEGER;  This  variable  contains  the  correct  choice  number  for 
this  Junction  point. 

TEXTMANY;  PACKED  ARRAY  [1..2]  OF  INTEGER;  This  variable  contains  the 
number  of  pages  of  text  to  be  displayed  before  and  after  the  first  motion 
sequence.  TEXTMANY  [1]  refers  to  text  before  and  TEXTMANY  [2]  refers  to 
text  after  the  first  motion  sequence. 

TEXTWHERE;  INTEGER;  This  variable  contains  the  location  (the  record 
number)  of  text  to  be  displayed  before  and/or  after  the  first  motion 
sequence  of  a  Junction  point.  This  text  is  contained  in  file  TEXT. ONE. 

RESPONSE;  BOOLEAN;  This  variable  indicates  whether  or  not  choices 
should  be  displayed  and  a  response  picked  up.  This  variable  is  usually 
set  to  TRUE. 

NEXT;  PACKED  ARRAY  (1..51  OF  INTEGER;  This  variable  contains  the 
location  of  the  next  record  to  be  accessed  in  file  POINT. ONE  given  that  a 
particular  response  has  been  made. 

DONE;  PACKED  ARRAY  (1..5]  OF  BOOLEAN;  This  variable  indicates  whether 
or  not  a  particular  choice  results  in  the  termination  of  the  program. 

TEXT;  PACKED  ARRAY  (1..2,  1..2]  OF  BOOLEAN;  This  variable  indicates 
whether  or  not  text  is  displayed  before  and/or  after  the  first  motion 
sequence  of  a  Junction  point.  This  variable  is  dimensioned  such  that 
separate  variables  exist  for  the  two  modes  of  lesson  usage.  That  is, 

TEXT  [1..2,  1]  refers  to  the  pedagogical  mode,  and  TEXT  (1..2,  2]  refers 
to  the  experiential. 
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PLAY;  PACKED  ARRAY  I1..2,  1..2]  OF  BOOLEAN:  This  variable  indicates 
whether  or  not  the  firs;  and/or  third  motion  sequences  will  be  displayed. 
This  variable  is  dimensioned  so  that  separate  variables  exist  for  the  two 
modes  of  lesson  usage.  (Refer  to  Table  I  for  a  review  of  the  functions  of 
the  variables.) 


Information  stored  in  record  #0  of  file  POINT. ONE 


Record  zero  of  file  POINT. ONE  is  used  for  various  housekeeping  functions. 
The  variables  and  their  functions  are  listed  below: 


SEQl:  PACKED  ARRAY  (1..2]  OF  STRING  [5]:  This  variable  is  used  to  store 
the  start  and  stop  frame  numbers  of  the  light  pen  instructions. 


TEXTMANY:  PACKED  ARRAY  [1..2]  OF  INTEGER: 


TEXTMANY  [1];  This  variable  contains  the  number  of  records  that  con¬ 
stitute  the  file  INTRO. 


TEXTMANY  [2];  This  variable  contains  the  number  of  student  files  that 
have  been  used  so  far.  The  identification  numbers  (the  service  numbers) 
of  the  files  are  stored  in  the  file  STUDENT.  This  variable  must  be  set 
to  zero  for  a  new  set  of  files. 


TEXTWHERE:  This  variable  contains  the  record  in  which  text  starts  for 
the  introductory  text.  This  text  is  in  file  INTRO. 


RESPONSE:  BOOLEAN:  If  this  variable  is  set  to  TRUE,  the  student  will  be 
allowed  to  choose  which  of  the  two  modes  of  instruction  he  wishes  to  use. 
If  this  variable  is  set  to  FALSE,  the  student  is  forced  to  use  the 
pedagogical  mode  of  Instruction. 
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Appendix  K 
Part  2 

Instructlotxal  User's  Guide 


Before  you  attempt  to  load  data  for  use  by  the  Videodisc  program,  you 
should  first  read  the  following  in  the  order  that  they  are  listed. 

1.  ALL  Apple  Pascal  manuals  dealing  with  the  Filer,  Editor,  and  the  use 
of  the  Formatter  program 

2.  Software  Description 

3.  Functional  Software  Overview 

4.  Instructions  for  Lesson  Administrative  Maintenance  Program  (LAMP) 

5.  Instructions  for  Transfer 

6.  Instructions  for  Structure 


7.  Data  Entry  Overview 

Before  you  attempt  to  use  the  program  Videodisc,  you  should  first  read 
the  following  in  the  order  that  they  are  listed. 

1.  ALL  Apple  Pascal  manuals  dealing  with  the  use  of  Pascal  on  a  system 
containing  two  floppy  disk  drives,  how  to  execute  a  program,  and  use 
of  the  Pascal  Filer 

2.  Software  Description 

3.  Functional  Software  Overview 

4.  Additional  Support  Software 

5.  Student  File  Format 

6.  Instructions  for  running  Videodisc 


Appendix  K 
Part  3 

Additional  Support  Software 


Four  additional  programs.  Align,  Clock,  Look,  and  Reset  are  supplied  on 
each  system  diskette.  Each  will  be  discussed  In  detail  below. 


ALIGN 

Align  Is  used  to  align  the  light  pen  for  use  with  Videodisc.  Remove  the 
cover  of  the  Apple  and  Identify  the  light  pen  card  before  you  execute  the 
program.  Note  that  there  are  three  screw  adjustments  on  the  top  of  the  card. 
The  adjustment  closest  to  the  keyboard  Is  the  Y  axis  adjustment  and  the  next 
screw  back  Is  the  X  axis  adjustment.  The  adjustment  screw  In  the  very  back  Is 
a  sync  adjustment  and  SHOULD  NOT  be  altered  unless  ABSOLUTELY  NECESSARY 1 
Execute  the  program  Align  and  touch  the  pen  to  a  location  on  the  screen.  The 
X  and  Y  positions  will  be  displayed  at  the  top  left  corner  of  the  screen.  If 
these  values  do  not  match  the  values  that  you  have  selected  with  your  posi¬ 
tioning,  CAREFULLY  AND  SLOWLY  make  the  proper  adjustment.  Select  line  20 
to  exit  the  program  after  the  pen  Is  correctly  adjusted. 


CLOCK 

Clock  Is  used  to  reset  the  clock  when  necessary.  Execute  the  program  and 
select  S  to  set  the  clock.  Press  return  to  the  questions  regarding  the  WRITE 
ENABLE  and  LEAP  YEAR  switches.  Answer  with  a  Y  to  the  LEAP  YEAR  question. 
Enter  the  correct  Information  regarding  month,  date,  hour  (In  Greenwich  Time), 
minutes,  and  seconds.  Answer  with  a  return  to  the  statement  about  setting  the 
enable  switch.  Press  D  to  display  the  time.  If  It  Is  not  correct,  repeat  the 
above  Instructions.  If  it  is  correct,  press  Q  to  exit  the  program. 


LOOK 

Look  Is  used  to  review  or  print  out  the  data  contained  in  all  of  the 
student  records  that  have  been  created  (See  Appendix  K,  Part  5).  Before  you 
execute  che  program.  Insure  that  the  diskette  that  contains  the  student  files 
which  you  wish  to  review  Is  in  device  #5  (floppy  disc  drive  #2).  After  you 
execute  the  program,  you  will  be  asked  if  you  wish  to  use  the  printer. 

Answer  with  a  Y  or  N  to  this  question.  If  you  answer  with  a  Y,  the  program 
will  print  out  the  data  contained  in  all  of  the  student  files  contained  on  the 
diskette  in  device  //5.  If  you  answer  with  a  N,  the  program  will  display  the 
preliminary  data  for  the  first  file.  Press  return  to  continue  the  display. 

You  must  press  the  return  to  review  all  subsequent  segments  of  information. 


RESET 


Reset  is  used  to  reset  variable  TEXTMANY  [2]  in  record  #0  of  file 
POINT. ONE  to  zero.  This  program  will  also  remove  all  student  files  from  the 
diskette  in  device  #5  after  TEXTMANY  [2]  is  reset.  Before  you  execute  the 
program,  insure  that  you  have  printed  out  the  information  contained  in  all  of 
the  student's  file  if  you  wish  to  preserve  this  information.  Next,  place  the 
diskette  containing  the  POINT. ONE  file  to  be  reset  in  device  #5.  Finally, 
execute  the  program.  If  POINT. ONE  has  been  reset,  the  program  will  inform  you 
of  this.  Otherwise,  the  program  will  display  that  it  has  reset  POINT. ONE  and 
that  it  is  removing  the  student  files  on  the  diskette. 


Appendix  K 
Part  4 


Instructions  for  Lesson  Administrative  Maintenance  Program 


The  Lesson  Administrative  Maintenance  Program,  or  LAMP,  allows  the  user 
to  create,  fill,  and  modify  all  the  data  files  used  by  the  Videodisc  lesson 
program  (See  Appendix  K,  Part  6).  The  data  files  accessed  by  this  program  are 
INTRO,  TEXT.ONE,  TEXT. TWO,  POINT.ONE  and  the  counter  files  associated  with 
each  of  these  files.  The  convention  for  naming  the  counter  files  is  to  add 
.COUNT  to  their  associated  file  name  such  that  the  counter  file  for  INTRO  is 
INTRO. COUNT.  These  counter  files  contain  a  single  integer  that  represents  the 
actual  number  of  records  in  each  file.  Figure  10  diagrams  the  organization  of 
LAMP. 


LAMP  is  a  menu  driven  program.  A  menu  driven  program  is  one  that 
displays  a  list  of  options  whenever  any  major  action  is  available  to  the  user. 
A  particular  option  may  then  be  chosen  by  "entering"  the  number  associated 
with  that  option.  A  number  is  “entered"  by  typing  that  number  and  then 
pressing  the  return  key. 

When  LAMP  is  executed,  the  following  menu  is  displayed: 


1. 

RUN 

"TRANSFER" 

2. 

RUN 

"STRUCTURE" 

3. 

EXIT 

TO  EDITOR 

4. 

EXIT 

PROGRAM 

Options  1  and  2,  RUN  "TRANSFER"  and  RUN  "STRUCTURE",  allow  access  to 
the  two  major  portions  of  the  LAMP  program.  Option  1  is  used  to  facilitate 
the  creation,  input  of  data,  and  manipulation  of  data  in  the  text  files 
INTRO,  TEXT.ONE,  TEXT. TWO,  and  the  text  portion  of  POINT.ONE  (See  Table  27). 
Option  1  also  allows  the  viewing  and  printing  of  these  files  in  their  format¬ 
ted  form,  and  for  the  creation  and  manipulation  of  the  counter  files.  Option  2 
is  used  to  create,  fill,  and  manipulate  the  POINT.ONE  or  main  data  file.* 

Both  Options  1  and  2  are  explained  in  more  detail  later. 

Option  3,  EXIT  TO  EDITOR,  allows  the  user  to  exit  directly  into  the 
Pascal  editor.  The  value  of  this  option  will  be  more  obvious  later  as  Option 
1  assumes  that  the  Pascal  editor  will  be  used  to  manipulate  the  data  in  the 
text  files. 

*When  any  file  is  created,  it  is  placed  last  on  the  disk  and,  therefore,  can 
be  filled  with  no  side  effects.  However,  if  the  user  wishes  to  add  to  a  file 
after  another  file  has  been  created,  the  file  that  is  to  be  extended  must  be 
placed  last  on  the  disk  and  the  disk  packed  to  conserve  room.  See  the 
Apple  Pascal  manuals  pertaining  to  the  Filer  for  more  information  on  this 
procedure.  There  is  one  exception,  when  the  option  ADD  TO  THE  FILE  under 
Structure  is  chosen,  the  file  is  placed  last  on  the  disk  by  the  program  with 
no  user  Intervention. 
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Figure  10.  LAMP 


LAMP 


Trantfar 
Usadto 
Format  tha 
Followino: 


1.  TaxtOna 

2.  TaxtTwo 

3.  Intro 

4.  Taxt  portion 
of  PoIntOna 


Structura 
Utad  to  Craata 
and  Manipulata 
Data  In  PointOna 


Figure  10.  The  organization  of  the  LAMP  program. 
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Table  27 


Review  of  Variables  Displayed  by  Options  in  Structure 


Option 

Variables  that  are  displayed 

1. 

Sequence  One  Information 

SEQ1[1..2] 

2. 

Text  of  Choices 

ANSWERS [1.. 20] 

3. 

Position  of  Choices 

POSITIONS [1.. 5,  1..2] 

A. 

Correct  Choice 

CORRECT 

5, 

Text  Before  and/or  After  Motion 
Sequence 

TEXT[1..2,  1..2] 

6. 

Number  of  Pages  of  Text 

TEXT(1. .2] 

TEXTWHERE 

7. 

Pick  up  a  Response 

RESPONSE 

PUY[1..2,  1..2] 

8. 

Information  Pertaining  to  Choices: 

a.  Sequence  Two 

SEQ1{1..5,  1..2] 

b*  Sequence  Three 

SEQ3(1..5,  1..A] 

SEQMANY 

c>  Pages  of  Explanation 

FEEDMANY(1..5] 

FEED WHERE (1.. 3] 

d.  Next  Junction  Point 


NEXT(1..5) 

D0NE[1..S 


After  completing  Options  1  or  2,  the  user  may  only  exit  back  to  the  LAMP 
main  menu  so  that  all  entry  and  exit  points  are  at  the  LAMP  main  menu.  The 
only  way  to  correctly  exit  the  LAMP  program  is  through  Option  4,  EXIT  PROGRAM. 


Instructions  for  Transfer 

Transfer  is  used  to  facilitate  the  input  of  text  into  the  files  TEXT. ONE, 
TEXT. TWO,  INTRO,  and  POINT. ONE.  The  program  also  allows  viewing  the  data  in 
these  files  in  their  formatted  form.  Finally,  the  user  can  create  and  mani¬ 
pulate  the  data  in  the  counter  files.  A  counter  file  must  exist  for  each 
of  the  information  files.  The  convention  used  for  naming  counter  files  is  to 
add  .COUNT  to  the  file  name.  Therefore,  the  counter  file  for  INTRO  would  be 
INTRO. COUNT.  Transfer  automatically  creates  counter  files  for  you,  as  well  as 
updating  them. 

INTRO  contains  the  text  of  the  overview  that  is  presented  to  the  student 
at  the  beginning  of  the  lesson.  This  overview  describes  how  the  program 
functions  in  both  the  pedagogical  and  experiential  modes.  This  information 
must  be  entered  in  the  sequence  in  which  it  will  be  displayed.  TEXT. ONE 
contains  the  text  that  is  displayed  before  and/or  after  the  first  motion 
sequence  of  a  Junction  point.  This  text  is  optional  for  any  given  junction 
point  and  la  entered  as  it  will  be  displayed  at  each  junction  point.  However, 
the  text  for  the  various  junction  points  can  be  entered  in  any  order,  l.e., 
the  text  for  junction  point  4  could  be  entered  first  and  the  text  for  junction 
point  1  could  be  entered  next,  etc. 

TEXT. TWO  contains  the  text  that  is  displayed  after  sequence  three  as 
feedback  in  the  pedagogical  mode.  The  text  for  any  given  junction  point  and 
choice  within  that  junction  point  must  be  entered  sequentially,  but  the  order 
of  the  entry  for  all  choices  and  junction  points  does  not  depend  on  order. 

For  example  the  text  for  choice  point  one,  choice  three  may  be  entered  after 
choice  point  two,  choice  one. 

The  user  first  develops  the  appropriate  text  for  a  particular  file  using 
the  Pascal  Editor.  The  Pascal  Editor  is  utilized  because  of  its  powerful 
editing  features.  This  will  simplify  and  expedite  the  entry  and  modification 
of  textual  information.  After  all  changes  have  been  made,  Transfer  is  used  to 
format  the  text  for  use  by  the  videodisc  program.  Transfer,  as  well  as 
Videodisc,  assumes  that  a  page  of  text  consists  of  no  more  than  20  lines  of 
text  with  a  maximum  of  40  characters  per  lino.  Transfer  also  assumes  that 
each  page  of  text  begins  with  the  word  START  and  ends  with  the  word  END. 
Finally,  the  last  page  of  text  must  also  have  the  word  FINISHED  following 
START,  END,  and  FINISHED  must  be  flush  with  the  left-hand  margin  and  have  no 
other  characters  or  blanks  to  the  right.  Figure  11  is  an  example  of  this 
format.  Any  information  that  does  not  conform  to  this  format,  for  example,  a 
line  longer  than  forty  characters,  will  bo  lost  during  the  transfer  process. 


When  Transfer  is  executed,  the  following  options  are  available; 

1.  MOVE  FORMATTED  FILES  TO  A  TEXT  FILE 

2.  MOVE  A  TEXT  FILE  TO  A  FORMATTED  FILE 

3.  MOVE  POINT. ONE  TO  A  TEXT  FILE 

4.  MOVE  A  TEXT  FILE  TO  POINT. ONE 

5.  REVIEW  FILES  IN  FORMATTED  FORM 

6.  CHECK  COUNTER  FILES 

7 .  EXIT  PROGRAM 


MOVE  FORMATTED  FILES  TO  A  TEXT  FILE;  This  option  is  used  to  move  the  format¬ 
ted  data  files  into  an  unformatted  text  file  that  can  be  accessed  by  the 
Pascal  Editor.  When  this  option  is  chosen,  a  new  menu  is  displayed,  which 
is: 

1.  SOURCE  FILE  TEXT. ONE  ON  DRIVE 

2.  SOURCE  FILE  TEXT. TWO  ON  DRIVE  #5 

3.  SOURCE  FILE  INTRO  ON  DRIVE  fS 

4.  OTHER 

5.  RETURN  TO  MAIN  MENU 

Options  1  through  3  result  in  the  appropriate  file  on  Drive  05  (Disk 
Drive  2)  being  used  for  transfer  to  an  unformatted  file.  These  options  assume 
that  the  counter  file  for  the  selected  file  also  exists  on  Drive  05.  If  you 
wish  to  access  other  files  or  if  the  associated  counter  file  Is  not  on  Drive 
05  then  Option  4,  OTHER,  must  be  chosen.  This  will  allow  you  to  enter  the 
desired  Drive  0  and  file  name.  If  you  wish  to  return  to  the  main  menu, 
choose  Option  5*  The  only  way  to  exit  this  program  is  through  the  main 
menu. 

The  program  will  then  ask  you  to  enter  the  drive  number  and  name  of  the 
destination  file.  This  must  be  of  the  form  -  DRIVE  NUMBER:  NAME.  When  the 
program  asks  you  to  ENTER  a  message,  the  return  key  must  be  pressed  for  the 
program  to  road  the  message. 

After  this  is  done,  the  program  will  disp.'.ay  how  many  records  are  in  the 
file  and  will  ask  if  you  want  to  transfer  all  records.  If  you  answer  with  a 
Y,  the  program  will  proceed  to  transfer  all  records.  If  you  answer  with  N, 
the  program  will  ask  you  for  the  start  and  stop  record  numbers.  The  Pascal 
Editor  luis  limitations  on  the  size  of  a  file  it  can  work  with,  therefore, 
transfer  only  the  data  that  arc  necessary.  The  program  then  indicates  ttut 
the  data  are  being  transferred  and  which  records  have  been  transferred.  After 
the  records  have  been  transferred,  the  program  returns  to  the  main  menu. 
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MOVE  A  TEXT  FILE  TO  A  FORMATTED  FILE;  This  option  allows  a  text  file  to  be 
transferred  to  a  file  formatted  for  use  by  Videodisc.  V?hen  this  option  is 
chosen,  a  menu  is  displayed,  which  is: 

1.  DESTINATION  FILE  TEXT. ONE  ON  DRIVE  //5 

2.  DESTINATION  FILE  TEXT.TWO  ON  DRIVE  If 5 

3.  DESTINATION  FILE  INTRO  ON  DRIVE  i^5 

4.  OTHER 

5.  RETURN  TO  MAIN  MENU 

For  Options  1  through  3,  the  information  in  the  source  file  will  be 
placed  into  the  respective  data  file.  If  the  destination  file  has  a  different 
name  or  it  is  on  another  Drive,  the  “OTHER"  Option  must  be  used  and  the  file 
name  entered.  You  will  then  be  asked  to  enter  the  drive  number  and  the  name 
of  the  source  file.  This  file  must  have  been  created  previously  by  the  Pascal 
Editor.  Next,  you  will  be  asked  to  enter  the  destination  record.  If  this  is  a 
new  file,  enter  0.  You  are  then  asked  if  the  file  exists.  If  you  answer  Y, 
the  file  will  be  opened  for  inputting  the  data.  If  you  answer  N,  the  text 
file  and  its  associated  counter  file  are  created. 

MOVE  POINT. ONE  TO  A  TEXT  FILE;  After  choosing  this  option,  you  will  be  shown  a 
two-choice  menu.  If  you  wish  to  return  to  the  main  menu,  choose  Option  2; 
otherwise,  choose  Option  1.  After  choosing  Option  1,  you  will  be  asked  If  the 
source  file  Is  #5:  POINT. ONE.  If  it  is  not,  enter  the  source  drive  and  file 
name.  You  will  then  be  asked  to  enter  the  destination  drive  number  and 
file  name.  This  must  be  of  this  form  -  DRIVE  NUMBER;  NAME,  where  NAME  is  any 
name  not  already  resident  on  that  disk.  The  n'imbet  of  records  is  then  dis¬ 
played  and  you  will  bo  asked  if  you  want  all  the  records  transferred.  If  you 
respond  with  a  Y,  all  the  records  will  be  transferred.  If  you  respond  with  N, 
you  will  bo  askod  to  enter  the  start  and  stop  record  numbers,  the  text  in 
each  designated  record  of  POINT. ONE  will  then  be  transferred  to  the  text  file 
with  the  data  delimited  by  the  words  START  and  END. 

MOVE  A  TEXT  FILE  TO  POINT. ONE;  After  selecting  this  choice,  you  will  be  shown 
a  two-choice  menu.  If  you  choose  selection  2,  you  will  return  to  the  main 
menu.  If  you  choose  selection  1,  you  will  bo  able  to  move  the  text  from  an 
unformatted  file  to  the  text  portion  of  POINT. ONE,  l.e.,  the  text,  that 
constitutes  the  student's  choices.  You  will  first  bo  asked  to  enter  the  drive 
number  and  flic  name  of  the  source  file.  Enter  this  in  the  usual  manner. 

You  will  then  be  asked  If  the  destination  is  POINT. ONE  on  Drive  ^5.  If  you 
answer  N,  you  must  enter  the  destination  file  and  drive  number,  if  you  answer 
Y,  you  will  be  asked  to  enter  the  destination  record.  The  data  will  then  be 
transferred  beginning  with  the  destination  record  that  you  specified  and  will 
continue  until  all  the  data  In  the  unformatted  file  are  transferred. 

REVIEW  FILES  IN  FORMATTED  FORM;  This  option  is  used  to  view  the  text  of  the 
data  files  in  their  formatted  form.  When  this  option  is  chosen,  a  new  menu  is 
displayed,  which  is: 
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1.  SOURCE  FILE  TEXT. ONE  ON  DRIVE  #5 


2.  SOURCE  FILE  TEXT. TWO  ON  DRIVE  #5 

3.  SOURCE  FILE  INTRO  ON  DRIVE  #5 

4.  SOURCE  FILE  POINT. ONE  ON  DRIVE  #5 

5 .  OTHER 

6.  RETURN  TO  MAIN  MENU 

Options  1  through  4  result  in  the  appropriate  file  on  Drive  #5  (Disk 
Drive  2)  being  viewed  in  its  formatted  form.  These  options  assume  that  the 
counter  file  for  the  selected  file  also  exists  on  Drive  #5.  If  you  wish  to 
access  other  files,  then  Option  5,  OTHER,  must  be  chosen.  This  will  allow 
you  to  enter  the  desired  drive  number  and  file  name.  If  you  wish  to  return  to 
the  main  menu,  choose  Option  6.  The  only  way  to  exit  this  procedure  is 
through  this  option. 

The  program  will  then  display  a  new  menu,  which  is: 

1.  REVIEW  AN  ENTIRE  FILE 

2.  REVIEW  PART  OF  A  FILE 

3.  PRINT  OUT  AN  ENTIRE  FILE 

4.  PRINT  OUT  PART  OF  A  FILE 

If  Option  1  is  chosen  the  program  will  display  an  entire  page  of  text 
£• artlng  vith  record  number  0.  At  the  bottom  of  each  display,  the  program 
will  ask  you  if  there  are  any  changes  to  be  made.  This  is  for  minor  changes 
that  can  be  made  in  the  text.  If  you  answer  with  a  Y,  you  will  be  asked  to 
enter  the  line  number  you  wish  to  change.  You  may  then  enter  the  information 
for  that  line.  The  updated  version  of  the  formatted  text  is  then  displayed. 

If  you  answer  N  to  the  question,  you  will  then  be  shown  the  next  page  of 
text  and  continue  until  all  the  text  has  been  displayed. 

Option  2  is  similar  to  Option  1,  except  that  you  may  view  specific  pages 
of  text.  After  choosing  this  option  you  will  be  asked  to  enter  the  starting 
and  ending  page  numbers.  The  pages  are  numbered  from  0.  The  ending  number 
must  be  greater  than  or  equal  to  the  starting  number;  if  this  is  not  the  case, 
an  error  message  will  be  displayed. 

If  Option  3  is  chosen,  the  entire  file  will  be  printed  in  its  formatted 
form.  The  record  number  will  be  printed  at  the  top  of  each  page.  Naturally, 
ensure  that  the  printer  is  operational. 

Option  4  is  similar  to  Option  3,  except  that  you  may  print  specific  pages 
of  text. 


CHECK  COUNTER  FILES;  After  selecting  this  choice,  the  following  menu  will  be 
displayed: 

1.  SOURCE  TEXT. ONE. COUNT  ON  DRIVE  #5 

2.  SOURCE  TEXT. TWO.  COUNT  ON  DRIVE  //5 

3.  SOURCE  INTRO. COUNT  ON  DRIVE  #5 

4.  SOURCE  POINT. ONE.COUNT  ON  DRIVE  #5 

5.  OTHER 

6.  RETURN  TO  MAIN  MENU 

Options  1  through  4  will  allow  access  to  the  appropriate  files.  Option 
5  will  allow  access  to  other  counter  files  (See  Appendix  K,  Part  1),  and 
Option  6  will  return  you  to  the  main  menu. 

After  choosing  any  option  but  6,  you  will  be  r 'L'id  if  you  want  to  create 
a  new  file;  answer  N  if  the  file  already  exists.  If  you  answer  Y,  you  will  be 
asked  for  the  new  value.  Otherwise,  you  will  be  shown  the  current  value  and 
asked  if  you  wish  to  change  that  value.  If  you  answer  Y,  you  may  enter  the 
new  value  and  return  to  the  main  menu.  If  you  answer  N,  you  will  ^return  to 
the  main  menu. 


EXIT  PROGRAM 


Choosing  this  option  is  the  only  way  to  correctly  exit  this  portion  of 
the  program.  After  choosing  this  option,  the  user  will  be  returned  to  the 
LAMP  main  menu. 


Instructions  for  Structure 

Structure  is  used  to  fill  the  main  Information  file,  POINT.  ONE,  with 
data.  When  this  sub-program  is  executed  from  the  Lesson  Administrative 
Molntenance  Program  (U^),  the  following  menu  of  choices  is  displayed: 

1.  CREATE  A  NEW  SET  OF  FILES 

2.  LOOK  AT  ALL  OF  THE  DATA 

3.  LOOK  AT  SPECIFIC  RECORDS 

4.  PRINT  OUT  ALL  OF  THE  DATA 

5.  PRINT  OUT  SPECIFIC  RECORDS 

6.  ADD  TO  THE  FILE 


7.  EXIT  THE  PROGRAM 


Each  of  these  options  is  discussed  In  detail  below.  A  carriage  return  Is 
rsed  to  complete  each  entry  of  data.  A  carriage  return  can  be  used  to  answer 
no  to  a  yes/no  question. 

CREATE  A  NEW  SET  OF  FILES;  This  option  Is  used  to  create  a  new  POINT. ONE 
file  and  Its  associated  counter  file,  POINT. ONE. COUNT.  When  this  option  Is 
selected,  a  counter  file  Is  first  created  and  then  a  new  POINT. ONE  file  Is 
opened.  You  will  then  be  permitted  to  fill  the  file  with  data.*  After  the 
file  Is  opened,  you  will  be  asked  to  enter  the  following  information: 

1.  START  AND  STOP  FRAME  NUMBERS  FOR  SEQUENCE  1 

2.  CORRECT  CHOICE  NUMBER 

3.  WHETHER  OR  NOT  THERE  IS  TEXT  BEFORE  AND/OR  AFTER  SEQUENCE  1 

4.  THE  NUMBER  OF  PAGES  OF  TEXT  BEFORE  AND/OR  AFTER  SEQUENCE  1 

After  you  have  entered  the  data  for  the  number  of  pages  of  text  before 
and/or  after  sequence  1,  the  program  will  ask  if  you  wish  to  "dummy"  the  data. 
This  question  refers  to  the  specific  Information,  frame  ntmbers  for  sequence 
2,  sequence  3,  pages  of  feedback,  which  record  contains  the  feedback,  the  next 
junction  point,  and  whether  a  particular  choice  results  in  an  end  point 
being  reached  for  each  of  the  five  potential  answers.  It  Is  sometimes  more 
efficient  to  dummy  this  data  and  change  it  later.  After  you  have  dummied  the 
data  or  have  entered  It,  the  program  will  ask  if  you  are  finished  entering 
data.  If  you  answer  with  a  Y,  you  will  be  returned  to  the  menu  for  Structure. 
If  you  answer  with  any  other  letter,  you  will  be  permitted  to  enter  data  into 
the  next  record  of  POINT. ONE.**  You  will  notice  that  you  are  not  asked  to 
enter  the  text  of  the  choices,  their  associated  start  and  stop  line  numbers, 
and  variables  pertaining  to  whether  a  response  should  be  picked  up.  This  is 
done  because  the  text  Is  dummied  for  you  and  the  start  and  stop  line  numbers 
are  set  to  the  number  40.  The  organization  of  Structure  was  built  on  the 
assumptions  that  the  Pascal  Editor  would  be  used  to  create 
text  for  POINT. ONE  and  that  Transfer  would  be  used  to  move  the  text  into  the 
appropriate  record  within  POINT. ONE.  The  user  can  then,  easily  use  the  review 
and  alter  capability  of  Structure  to  change  the  line  numbers  to  their  correct 
values.  The  variables  pertaining  to  a  response  being  picked  up  are  all  set  to 
TRUE  because  this  is  their  normal  state.  Again,  the  user  can  go  back  and 
change  them  if  necessary. 


*The  first  record  that  you  will  enter  data  into  is  record  #0.  This  is  the 
record  that  contains  housekeeping  information  for  VIDEODISC.  Refer  to  the 
subsection  labeled  Information  stored  In  record  of  POINT. ONE  in  the 
Functional  Software  Overview  section  for  information  regarding  what  variables 
are  used.  NOTE:  The  variable  TEXTMANY[2]  must  be  set  to  zero  for  a  new 
record.  RESET  is  used  to  reset  this  field  to  zero  after  the  videodisc 
program  has  been  run. 

**N0TE:  The  next  record,  record  ^1,  is  the  record  that  contains  information 
pertaining  to  the  first  junction  point  of  the  scenarios.  (See  Appendix  K, 

Part  1). 


LOOK  AT  ALL  OF  THE  DATA;  This  option  allows  you  to  review  data  contained  in 
all  of  the  records  of  POINT. ONE. 

Reviewing  specific  data.  After  the  file  is  opened,  you  will  be  asked  if 
you  wish  to  execute  all  of  the  available  procedures.  If  you  answer  with  a  Y, 
you  will  review  all  of  the  data  in  all  of  the  records.  Because  there  is  a 
great  amount  of  information  stored  in  each  record,  you  will  usually  answer  no 
to  this  question  by  typing  any  letter  other  than  a  Y.  If  you  choose  to 
not  review  all  of  the  data,  the  following  menu  will  be  displayed: 

1.  SEQUENCE  ONE  INFORMATION  . 

2.  TEXT  OF  CHOICES 

3.  POSITION  OF  CHOICES 

4.  CORRECT  CHOICE 

5.  TEXT  BEFORE  AND/OR  AFTER  MOTION  SEQUENCE 

6.  NUMBER  OF  PAGES  OF  TEXT 

7.  PICK  UP  A  RESPONSE 

8.  INFORMATION  PERTAINING  TO  ANSWERS 

Each  of  the  available  options  will  be  discussed  below.  Each  option  will  allow 
you  to  review  and/or  alter  data  displayed  by  the  option. 

1.  SEQUENCE  ONE  INFORMATION;  This  option  displays  the  start  and 
stop  frame  numbers  for  the  first  motion  sequence  of  a  Junction 
point . 

2.  TEXT  OF  CHOICES;  This  option  displays  the  text  of  the  choices 
that  will  be  displayed  to  the  student. 

3.  POSITION  OF  CHOICES;  This  option  will  display  the  start  and 
stop  line  numbers  for  five  potential  answers.  The  text  of  the 
answers  will  also  be  displayed  at  the  same  time  to  facilitate 
the  entering  of  the  correct  information. 

4.  CORRECT  CHOICE;  This  option  will  display  the  correct  choice  for 
this  Junction  point. 

5.  TEXT  BEFORE  AND/OR  AFTER  MOTION  SEQUENCE;  This  option  will 
display  the  variables  that  determine  whether  or  not  text  is 
displayed  before  and/or  after  the  first  motion  sequence  of  a 
Junction  point. 


6.  NUMBER  OF  PAGES  OF  TEXT;  This  option  will  display  the  number 
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7.  PICK  UP  A  RESPONSE;  This  option  will  display  the  variables 
associated  with  picking  up  a  response  as  well  as  the  variables 
associated  with  playing  the  the  first  and/or  third  motion 
sequences . 

8.  INFORMATION  PERTAINING  TO  ANSWERS;  This  option  will  display  the 
start  and  stop  frame  numbers  for  the  second  and  third  motion 
sequences,  how  many  third  motion  sequences  there  are,  the  number 
of  pages  and  the  locations  of  feedback  text,  which  junction 
point  should  be  accessed  next,  and  whether  or  not  an  end  point 
has  been  reached  for  each  one  of  the  five  potential  answers. 

When  this  option  is  selected,  you  are  asked  whether  or  not  you 
wish  to  review  the  data  for  all  answers.  If  you  answer  with 
anything  other  than  a  Y,  you  will  be  asked  to  give  the  start  and 
stop  numbers  of  the  answers  that  you  wish  to  review.  You  will 
then  be  asked  if  you  wish  to  review  all  of  the  data.  If  you 
answer  with  anything  other  than  a  Y,  the  following  menu  will  be 
displayed: 

1.  SEQUENCE  TWO 

2 .  SEQUENCE  THREE 

3.  PAGES  OF  EXPLANATION 

4.  NEXT  JUNCTION  POINT 
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Each  of  the  above  choices  will  be  discussed  below: 

1.  SEQUENCE  TWO;  This  option  will  display  the  start  and  stop  frame 
numbers  for  sequence  two. 

2.  SEQUENCE  THREE;  This  option  will  display  the  start  and  stop 
frame  numbers  for  the  first  and  second  sequence  three  options  as 
well  as  the  number  of  third  motion  sequences  that  will  be  used. 
There  will  usually  be  only  one  third  motion  sequence  unless  you 
wish  to  patch  together  two  sequences.  Although  this  option  is 
available  to  you,  the  poor  quality  that  results  argues  against 
its  usage. 

3.  PAGES  OF  EXPLANATION;  This  option  will  display  the  number  of 
pages  of  feedback  that  exist  for  this  answer  as  well  as  the 
location  of  this  feedback.  The  feedback  is  stored  iu  TEXT. TWO. 

4.  NEXT  JUNCTION  POINT;  This  option  will  display  the  next  junction 
point  to  access  as  well  as  whether  or  not  this  is  an  end  point. 

The  options  available  to  the  user  under  the  choice  pertaining  to  the 
information  for  individual  answers  should  facilitate  the  initial  entry  of  data 
as  well  as  any  changes  that  might  be  necessary  during  the  development  of  a 
lesson.  Table  28  is  a  review  of  the  variables  that  are  displayed  under  each 
of  the  options  discussed  above. 
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.  Table  28 

Description  of  Variables  in  POINT. ONE 


Variable 

Function  of  Variable  ,  . 

SEQl  [11 

Start  frame  number  for  first  motion  sequence 

SEQl  [2] 

Stop  frame  number  for  first  motion  sequence 

SEQ2  [1..5,  1] 

Start  frame  number  of  second  motion  sequence  for  each 
one  of  five  answers 

SEQ2  [1..5,  21 

Stop  frame  number  of  second  motion  sequence  for  each  one 
of  five  answers 

SEQ3  [1..5,  11 

Start  frame  number  of  the  first  of  two  potential  third 
motion  sequences  for  each  one  of  five  answers 

SEQ3  [1..5,  21 

Stop  frame  number  of  the  first  of  two  potential  third 
motion  sequences  for  each  one  of  five  answers 

SEQ3  [1..5,  31 

Start  frame  number  of  the  second  of  two  potential  third 
motion  sequences  for  each  one  of  five  answers 

SEQ3  [1..5,  41 

Stop  frame  number  of  the  second  of  two  potential  third 
motion  sequences  for  each  one  of  five  answers 

ANSWERS  (l.,20I 

Text  of  choices  available  to  the  student 

POSITIONS  [1..5, 

1] 

Beginning  line  number  for  each  one  of  five  answers 

POSITIONS  (1..5, 

21 

Ending  line  number  for  each  one  of  five  answers 

SEQMANY  [1..51 

Dictates  how  many,  one  or  two,  third  motion  sequences 
exist  for  each  of  five  answers 

FEEDMANY  (1..5] 

Dictates  the  number  of  pages  of  feedback  for  each  one  of 
five  answers 

FEEDtfflERE  [1..51 

Contains  the  start  record  number  for  the  feedback  for' 
each  one  of  five  answers 

CORRECT 

Dictates  which  one  of  five  answers  is  correct 

TEXTMANY  (I} 

Contains  the  number  of  pages  of  text  to  be  displayed 
before  the  first  motion  sequence 

TEXTMANY  (21 

Contains  the  number  of  pages  of  text  to  be  displayed 
after  the  first  motion  sequence 
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TABLE  28 
(cont'd.) 


Variable 

TEXTWHERE 

Function  of  Variable 

Contains  the  start  record  for  the  text  to  be  displayed 
before  and/or  after  the  first  motion  sequence 

RESPONSE 

Dictates  whether  or  not  choices  should  be  displayed  and 
a  response  picked  up 

NEXT  [1..5] 

Contains  the  junction  point  to  access  next  for  each  one 
of  five  answers 

DONE  [1..5] 

Dictates  whether  or  not  an  end  point  has  been  reached 
for  each  one  of  five  answers 

TEXT  [1,1] 

Dictates  whether  text  should  be  displayed  before  the 
first  motion  sequence  in  the  pedagogical  mode 

TEXT  [2,1] 

Dictates  whether  text  should  be  displayed  after  the 
first  motion  sequence  in  the  pedagogical  mode 

TEXT  [1,2] 

Dictates  whether  text  should  be  displayed  before  the 
first  motion  sequence  in  the  experiential  mode 

TEXT  [2,2] 

Dictates  whether  text  should  be  displayed  after  the 
first  motion  sequence  in  the  experiential  mode 

PLAY  [1,1] 

Dictates  whether  first  motion  sequence  should  be  played 
in  the  pedagogical  mode 

PLAY  [2,1] 

Dictates  whether  third  motion  sequence  should  be  played 
in  the  pedagogical  mode 

PLAY  [1,2] 

Dictates  whether  first  motion  sequence  should  be  played 
in  the  experiential  mode 

PLAY  [2,2] 

Dictates  whether  third  motion  sequence  should  be  played 
in  the  experiential  mode 

LOOK  AT  SPECIFIC  RECORDS;  This  option  is  similar  to  the  option  for  looking 
at  all  of  the  data  with  the  exception  that  you  specify  to  the  program  the 
start  and  stop  records  to  be  used  for  the  review  of  data#  As  with  the  option 
to  review  all  of  the  data,  you  may  alter  the  data  that  you  review.  After  you 
enter  the  start  and  stop  records  to  be  reviewed,  the  program  will  ask  if  you 
wish  to  use  all  procedures.  If  you  choose  to  not  review  all  of  the  data,  a 
menu  will  be  presented  that  will  permit  you  to  choose  which  datum  you  wish  to 
look  at.  Refer  to  the  discussion  for  Reviewing  specific  data. 

PRINT  OUT  ALL  OF  THE  DATA;  This  option  will  print  out  all  of  the  data  con¬ 
tained  in  all  of  the  records -of  POINT. ONE.  Before  you  select  this  option, 
ensure  that  the  printer  is  connected  to  the  computer.  A  word  of  waimlng,  this 
option  will  use  a  large  amount  of  paper. 

PRINT  OUT  SPECIFIC  RECORDS;  This  option  will  request  the  start  and  stop 
records  to  be  printed  before  the  program  begins  the  print  out.  Before  you 
select  this  option,  ensure  that  the  printer  is  connected  to  the  computer  and 
operational. 

ADD  TO  THE  FILE;  This  option  allows  you  to  fill  the  next  record  POINT. ONE 
with  data.  After  you  have  filled  one  record  with  data,  the  program  will 
ask  if  you  are  finished.  If  you  answer  with  anything  other  than  a  Y,  you 
will  continue  with  the  process  of  entering  data.  Ref^r  to  the  sectlo>  for 
"Creating  a  new  set  of  files",  for  a  review  of  the  types  of  data  that  you  will 
be  asked  to  enter. 


EXIT  THE  PROGRAM:  This  option  will  return  you  to  LAMP  so  that  you  can  either 
exit  LAMP,  go  to  the  sub-program  Transfer,  exit  to  the  Pascal  Editor,  or 
return  to  Structure. 


Appendix  K 
Part  5 

Student  File  Format 


Each  student  file  consists  of  the  following  kinds  of  Information: 

FILE  OF  RECORD 

NUMBER:  INTEGER 

CHOSEN:  PACKED  ARRAY  [1..10]  OF  INTEGER; 

TIMERS:  PACKED  ARRAY  [1..10]  OF  INTEGER; 

KEEP:  PACKED  ARRAY  [1..10i  OF  BOOLEAN; 

END; 

Record  //0  of  each  student  file  Is  used  to  store  additional  Information  about 
the  student's  perforaance.  The  variables  and  the  information  stored  in  them 
Is  given  below. 

NUMBER:  This  variable  contains  the  number  of  junction  points  that  the 
student  passed  through  during  the  course  of  the  lesson. 

CHOSEN ;  This  variable  contains  no  special  information. 

TIMERS :  The  first  three  elements  of  this  variable  contain  the  start 

hour,  minute,  and  seconds.  The  next  three  elements  contain  the 
stop  hour,  minute,  and  seconds. 

KEEP:  The  first  element  of  this  variable  is  set  to  match  the  state  of 

the  variable  PEDAGO.  Consequently,  it  will  be  TRUE  if  the 
pedagogical  mode  was  used,  and  FALSE  if  the  experiential  mode 
was  used. 

The  data  tracking  the  student's  responses  are  then  stored  starting  with  record 
#1.  Two  records'  worth  of  information  are  written  out  to  the  file  for  each 
junction  point.  This  is  done  so  that  the  choices  made  prior  to  and  following 
the  correct  choice  can  be  kept  separate.  That  is,  the  first  record  written 
for  a  junction  point  contains  the  choices  made  prior  to  a  correct  choice  being 
made.  The  second  record  contains  the  choices  made,  if  any,  after  the  correct 
choice  was  selected.  After  the  last  choice  is  made  in  either  condition, 
the  next  element  of  CHOSEN  to  be  used  is  set  to  contain  zero.  The  type  of 
information  that  is  stored  in  each  variable  is  discussed  below. 

NUMBER;  This  variable  contains  the  current  junction  point. 

CHOSEN;  Each  element  of  this  variable  contains  the  choices  that  the 
student  made  in  the  order  in  which  they  were  selected. 

TIMERS;  Each  element  of  this  variable  contains  the  response  latency  for 
the  choices  stored  in  CHOSEN. 

KEEP;  Each  element  of  this  variable  indicates  whether  the  choices, 
which  are  stored  in  CHOSEN,  were  kept  or  not. 
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Two  records  of  Information  for  each  junction  point  are  also  stored  when  the 
student  is  in  the  experiential  mode. 

When  the  student  selects  the  "HELP"  option  or  when  an  end  point  is 
reached,  the  following  information  is  stored:  NUMBER  is  set  to  zero  and  the 
first  element  of  CHOSEN  is  set  to  contain  a  number  indicating  the  option  that 
the  student  selected  to  continue  with  the  lesson.  The  following  code  is  used 
for  this  purpose: 


h9?. 


Pedagogical  Mode 


Experiential  Mode 


1.  GO  BACK  TO  BEGINNING  ? 


1.  GO  BACK  TO  BEGINNING  ? 


2.  GO  BACK  ONE  JUNCTION  POINT  ? 


2.  GO  BACK  ONE  JUNCTION  POINT  ? 


3.  REPEAT  LAST  JUNCTION  POINT  ? 


3.  REPEAT  LAST  JUNCTION  POINT  ? 


4.  QUIT  THE  PROGRAM  ? 


4.  QUIT  THE  PROGRAM  ? 


5.  IGNORE  THIS  HELP  REQUEST  ? 


The  format  of  two  records  being  written  per  junction  point  is  also  used  when 
the  student  selects  "HELP"  or  when  an  end  point  is  reached;  the  same  data  are 
written  twice. 


u 


Appendix  K 
Part  6 

Data  Entry  Overview 

The  following  is  an  overview  of  the  procedures  to  be  followed  in  entering 
data  that  will  be  used  by  the  program  Videodisc.  The  sequence  given  below  is 
the  recommended  sequence.  The  user,  however,  may  elect  to  enter  the  data  in  a 
different  order  (See  Appendix  K,  Part  1).  The  steps  listed  below  assume  that 
the  user  has  already  developed  a  scenario  that  is  complete  with  feedback, 
that  a  videodisc  has  been  produced  for  the  scenario,  and  that  the  user  has 
determined  all  of  the  start  and  stop  frame  numbers  for  all  of  the  motion 
sequences. 

Complete  a  Data  Sheet  for  the  Scenario 

The  user  should  first  fill  out  a  data  sheet  that  contains  the  infor¬ 
mation  for  each  junction  point  of  the  scenario.  If  both  the  Pedagogical  and 
Experiential  modes  will  be  used,  list  the  Pedagogical  path  first  followed  by 
the  Experiential  junction  points.  Table  29  is  a  sample  of  the  type  of  data 
sheet  that  you  should  use. 

Enter  All  Text  for  the  Scenario 

After  you  have  formatted  a  new  floppy  diskette,  you  should  enter  all  of 
the  text  that  the  scenario  requires  for  its  operation.  You  may  elect  to 
transfer  the  files  INTRO  and  INTRO. COUNT  from  an  already  formatted  diskette 
(See  Appendix  K,  Part  2)  if  you  expect  to  use  that  file  as  it  184  Use  the 
Pascal  Editor  to  create  the  text  that  \  .11  appear  before  and/or  after  the 
first  motion  sequence  of  a  junction  point  in  a  file  separate  from  the  file 
that  will  contain  the  feedback  for  the  scenario.  This  must  be  done  because 
the  text  before  and/or  after  the  motion  sequence  will  eventually  go  into  the 
file  TEXT. ONE,  while  the  feedback  will  go  into  the  file  TEXT. TWO.  Naturally, 
ensure  that  you  follow  the  convention  of  text  entry  that  the  program  Transfer 
will  expect  (See  Appendix  K,  Part  4).  That  is,  that  each  page  of  text  is 
preceded  by  the  word  START  and  followed  by  the  word  END.  Both  START  and  END 
must  be  aligned  with  the  left-hand  margin  and  have  no  spaces  following  them. 
Also,  each  line  of  text  must  contain  not  more  than  40  characters  and  each  page 
of  text  must  contain  not  more  than  20  lines  of  text.  Finally,  the  last  page 
of  text  that  is  entered  must  have  the  word  FINISHED  following  the  word  END 
that  defines  the  end  of  the  text  for  that  page.  You  should  also  enter  the 
text  for  all  of  the  answers  for  each  Junction  point.  Each  set  of  answers  must 
be  on  a  separate  page.  That  is,  each  set  of  answers  must  be  delimited  by  the 
words  START  and  END. 

Transfer  the  text  into  TEXT. ONE  and  TEXT. TWO 

Execute  LAMP  and  then  select  Transfer  to  move  the  text  from  the  files 
created  by  the  editor  into  formatted  files  that  can  be  used  by  Videodisc. 
Perform  this  operation  for  the  files  TEXT. ONE  and  TEXT. TWO,  but  not  for  the 
file  POINT. ONE  because  the  latter  file  hasn't  been  created  yet.  It  is  recom¬ 
mended  that  you  keep  track  of  how  much  room  remains  on  the  diskette  before  you 
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Sample  Data  Sheet  for  Videodisc  Data 


transfer  the  text  into  a  formatted  file  to  ensure  that  Transfer  has  enough 
room  to  fill  a  formatted  file.  If  TEXT. TWO  will  be  fairly  large,  move  the 
text  into  TEXT. ONE  first.  Then  remove  the  raw  text  file  and  perform  a  crunch 
on  the  diskette  before  you  transfer  the  feedback  text  into  TEXT. TWO. 

Enter  the  data  into  POINT. ONE 

Execute  LAMP  and  then  select  Structure  to  create  and  fill  the  file 
POINT. ONE.  After  all  of  the  records  of  POINT. ONE  have  been  filled,  return  to 
the  LAMP  menu  and  select  Transfer.  Use  Transfer  to  move  the  text  of  the 
answers  into  the  proper  records  in  POINT. ONE.  Remember  to  start  the  transfer 
with  record  #1  because  record  is  used  for  housekeeping  functions  (See 
Appendix  K,  Part  1).  After  all  of  the  text  has  been  transferred,  return  to 
the  LAMP  menu  and  select  Structure  again.  Select  Option  #2  to  review  all  of 
the  records  and  then  select  Option  #3  to  review  the  positions  of  the  answers. 
Again,  all  of  the  start  and  stop  line  numbers  have  been  set  to  40  for  you. 
Consequently,  you  need  only  change  the  positions  for  the  answers  that  exist 
for  each  junction  point. 

Execute  the  Videodisc  Program  and  De-bug 

Execute  the  Videodisc  program  (See  Appendix  K,  Part  7)  and  return  to  LAMP 
if  any  changes  need  to  be  made  to  any  of  your  data  files.  DO  NOT  ASSUME 
THAT  YOUR  DATA  ARE  CORRECT!  You  should  spend  the  time  to  work  through 
each  possible  path  of  the  scenario  to  determine  that  everything  is  working 
correctly. 


Appendix  K 
Part  7 

Instructions  for  Running  Videodisc 


The  following  steps  MUST  be  followed  in  the  order  that  they  are  listed  to 
prevent  damage  to  the  Apple  computer  and  the  data  files. 

1.  Ensure  that  the  videodisc  player,  computer,  and  monitor  are  properly 
connected.  Refer  to  Figure  I. 

2.  Turn  on  the  videodisc  player  and  load  the  proper  videodisc,  shiny 
side  up.  Close  the  cover  of  the  videodisc  player. 

3.  Insure  that  a  SYSTEM  DISKETTE  is  in  device  H  (floppy  disk  drive 

tfl). 

A.  Load  the  proper  floppy  diskette  into  device  i^S  (floppy  disk  drive 

n), 

3.  Turn  on  the  monitor  and  then  the  computer. 

6.  After  Pascal  has  been  loaded  into  the  computer,  use  the  Filer 
to  enter  the  correct  date.  Exit  the  Filer  after  this  has  been 
completed. 

7.  Run  Videodisc  to  ensure  that  the  light  pen  ard  clock  are  working 
properly.  After  these  have  been  checked,  press  the  RESET  button  to 
exit  Videodisc. 

8.  To  run  Videodisc  for  a  student,  press  the  R  button.  NOTE:  The  file 
containing  the  student's  performance  data  is  not  closed  out  until 
the  student  exits  the  program  using  the  exit  option  in  HELP  or  a 
normal  exit  at  the  completion  of  the  program.  If  the  RESET 

is  pressed  during  a  lesson,  the  perfortaance  will  be  lost. 


(*$S+*) 

PROGRAM  FINAL; 

USES  LIGHIPRN,WORK, CLOCKS TUFF, VIDEODISC; 

(*  F  IS  THE  MAIN  POINTER  FILE  *) 

VAR  F:FILE  OF  RECORD 

SEQ1;PACKED  ARRAY[1. .2]0F  STRING[5]; 

SEQ2:PACKED  ARRAY[1..5,  1..2]0F  STRING[5]; 

SEQ3 : PACKED  ARRAY [1.. 5,  1..4]0F  STRINGtS]; 

ANSWERS; PACKED  ARIiAY[l. .20]OF  STRING[AO]; 

POSITIONS: ARRAY[1.. 5, l..2]0F  INTEGER; 

SEQMANY: PACKED  ARRAY[1. .5]OF  INTEGER; 

FEEDMANY: PACKED  ARRAY[1. .5]OF  INTEGER; 

FEEDWHERE; PACKED  ARRAY[1. .5lOF  INTEGER; 

CORRECT; INTEGER; 

TEXTMANY: PACKED  ARRAY[1. .2]OF  INTEGER; 

TEXTWHERE; INTEGER; 

RESPONSE; BOOLEAN; 

NEXT; PACKED  ARRAY [ 1. .5]OF  INTEGER; 

DONE; PACKED  ARRAY[K.5lOF  BOOLEAN; 

TEXT;PACKED  ARRAY[1. .2,1. .2]OF  BOOLEAN; 

PLAY ; PACKED  ARRAY [ 1 . . 2 , 1 . . 2 ] OF .  BOOLEAN ; 

END; 

(*  G  IS  Tl'E  STUDENT  RECORD  FILE  *) 

G;FILE  OF  RECORD 
NUMBER: INTEGER; 

CHOSEN:PACKED  ARRAY[1. ,10]0F  INTEGER; 

TIM£RS;PAGKED  ARRAY(l. .lOjoF  INTEGER; 

KEEP, PACKED  ARRAYll..lOlOF  BOOLEAN; 

END; 

(*  H  CONTAINS  FEEDBACK  FOR  THE  PEDAGOGICAL  MODE  *) 

(*  L  CONTAINS  TEXT  TO  BE  DISPLAYED  BEFORE  *) 

(*  AND/OR  AFTER  A  MOTION  SEQUENCE  *) 

U:FILE  OF  PACKED  ARRAY [1. .20] OF  STRING[AO]; 

L:FILE  of  PACI;eD  ARRAYil..20]CF  STRINciAoj; 

i*  M  CONTAINS  THE  NUMBERS  (STORED  AS  STRINGS]  *) 

(*  OF  TJIE  STUDENT  FILES  CREATED.  F* . TEXTMANY ( 2 ]  *) 
CONTAINS  THE  NUMBER  OF  FILES  CREATED  *) 

M:FILE  OF  PACKED  ARRAY] 1 . . I jOF  STRING(14]; 

TIMERS ; PACKED  ARRAY ( I . , 3 ] OF  INTEGER; 

CHOICE,  COUNT,  PREVIOUS,  I,  J,  K,  X,  Y:INTEGER; 

PICKED,  P,  COUNTER,  SELECTED; INTEGER; 

KEPT; PACKED  ARRAY( I . . 5 jOF  INTEGER; 

JUNCTION; PACKED  ARRAY ( 1. .20] OF  INTEGER; 

ANSWER; CHAR; 

PEDAGO,  FOUND,  HELP FLAG; BOOLEAN; 

TEm>,  START,  STOP; STRING; 

SEGMENT  PROCEDURE  STARTA; 

BEGIN 

(0  CHECK  TO  SEE  T1L\T  IHERE  IS  ROOM  FOR  TOIS  STUDENT  FILE  *) 
(*  IF  NOT,  EXIT  THE  PROGRi\U  *) 

EIGVSE; 

RSSE  T(  F , '  tf  5 :  Pt)  INT .  ONE ' ) ; 


SEEK(F,0); 

GET(F); 


IF  F'‘.TEXTMANY[2]=62  THEN 
BEGIN 

CLOSE (F, LOCK); 

GOTOXY(0,i2); 

WRITELNC'NOT  ENOUGH  FOR  THIS  STUDENT  RECORD'); 
WRITELN; 

WRITELNC'RUN  THE  PROGRAM  TO  RESET  POINT.ONE'); 
EXIT(PROGRAM) ; 

END; 

FOR  I:=l  TO  10  DO 
BEGIN 

G'‘.CHOSEN[I]:=0; 

END; 

JUNCTION  [1  ]:=>!; 

GOTOXY(0,10); 

WRITELN('  ';3,'THE  VIDEODISC  IS  BEING  POSITIONED'); 
GOTOXY(0,12); 

WRITELN('  '; 14, 'PLEASE  WAIT'); 

(*  HIDE  THE  CURSOR  *) 

GOTOXY(42,0); 

(*  POSITION  THE  VIDEODISC  ON  FRAME  100  *) 

(*  AND  GET  THE  START  AND  STOP  FRAME  NUMBERS  *) 

(*  FOR  THE,  LIGHT  PEN  INSTRUCTIONS  *) 

VIDINIT; 

WAIT; 

FIND('IOO'); 

WAIT; 

END; 

(*  THE  NEXT  PROCEDURE  TICKS  DOWN  THE  TIME  AND  DISPLAYS  *) 
THE  LIGHT  PEN  INSTRUCTIONS  AFTER  TEN  SECONDS  *) 

SEGMENT  PROCEDURE  ORIGIN; 

VAR  HOLD, CURRENT; INTEGER; 

BEGIN 

GOTOXY(0,8); 

WRITELNC'  ';1,'IF  YOU  DO  NOT  KNOW  HOW  TO  USE  A  LIGHT'); 
WRITELN; 

WRITELN('  ';3,'PEN,  SIT  AND  DO  NOTHING,  OTHERWISE'); 
WRITELN; 

WRITELN('  3, 'POINT  THE  PEN  TO  ONE  OF  THESE  LINES'); 
WRITELN; 

WRITELNC'  ';8,'IN  THE  NEXT  SECONDS'); 

GOTOXY(42,0); 

(*  USE  'TIMESTAMP'  OR  'READTIME'  DEPENDING  *) 

(*  ON  THE  CLOCK  CARD  IN  USE.  THE  FOLLWOING  *) 

(*  IS  FOR  A  MOUNTAIN  HARDWARE  CPS  CARD  *) 

(*  THE  START  TIME  IS  STORED  IN  TIMERS (1.. 3]  *) 
TIMESTAMP(SYSTIME); 

WITH  SYSTIME.TIME  DO 
BEGIN 

TIMERS! l];«HOUR; 

TIMERS (2 ]:“HINUTE; 

TIMERS [3 ];-SECOND; 

HOLD; “HOUR; 


COUNT :=MINUTE*60+SECOND;  .  .  : 

:  .  COUNT  ;=C0UNT+10; 

(*  CONTINUE  TO  READ  TBIE  AND  DISPLAY  IT  USING  'PLACE'  UNTIL  *) 
(*  TEN  SECONDS  HAVE  GONE  BY  OR  THE  RING  IS  TOUCHED...  *) 

(*  UNTIL  RINGTOUCli»=TRUE.  *) 


REPEAT,;.,. 

TIMESTAMP(SYSTIME); 

IF  HOUROHOLD  THEN 
MINUTE:  =>MINUTE+60; 

. CHOICE :=MINUTE*60+SECOND; 

■  • CURRENT :=( COUNT-CHOICE )+l; 

PLACE( CURRENT, 1852); 

UNTIL  (RINGTOUCH)  OR  (CH6iCE>=COUNT) ; 

END; 

IF  CHOIGE<GOUNT  THEN 
BEGIN 

HUNT(X,Y); 

WRITE(CHR(7)); 

END; 

END; 

(*  THE  NEXT  PROCEDURE  GIVES  THE  STUDENT  A  DRILL  *) 

(*  IN  USING  THE  LIGHT  PEN  *) 

SEGMENT  PROCEDURE  LIGHT; 

VAR  PROMPT : ARRAY [ 1 . . 3 ] OF  STRING ; 

PROCEDURE  PICK; 

BEGIN 

FOR  I:=l  TO  3  DO 
BEGIN 

WRITELN(PROMPT[l]); 

END; 

GOTOXY(0,42); 

HUNT(X,Y); 

WRITE(CHR(7)); 

ERASE; 

END; 

BEGIN 

ERASE; 

PROMPT[l]:='  PRESS  THE  TIP  OF  THE  PEN  TO  ONE  OF  '; 
PR0MPT[2i:-'  THESE  LINES  AND  TOUCH  THE  BRASS  RING  '; 
PROHPT[3]:»'  UNTIL  YOU  HEAR  A  BEEP'; 

GOTOXY(0,11); 

PICK; 

GOTOXY(0,0); 

PICK; 

GOT0XY(0,20); 

PICK; 

GOTOXY(0,3); 

PICK; 

GOTUXY(0,i7); 

PICK; 

END; 

(*  THE  NEXT  PROCEDURE  DISPLAYS  THE  MONTH,  DAY  AND  TIME  OF  DAY  *) 


SEGMENT  PROCEDURE  TIME; 

VAR  CURRENT: INTEGER; 

BEGIN 

ERASE; 

TIMESTAl'IP(SYSTIME); 

LINES(2); 

WRITE ('TODAYS  DATE  IS:  '); 

WRITE( SYSTIME . DATE . MONTH, ' / ' , SYSTIME , DATE. DAY , '  / ' ) ; 
WRITELNC  SYS  TIME .  DATE.  YEAR) ; 


LINES(3); 

WRITELNC 'THE  TIME  IS:  '); 

LINES(12); 

WRITELNC 'PRESS  PEN  TO  THIS  LINE  TO  CONTINUE').; 

GOTOXY(42,0); 

(*  USE  'PLACE'  TO  DISPLAY  THE  HOUR,  MINUTES,  AND  SECONDS  *) 
REPEAT; 

TIMESTAMPCSYSTIME); 

WITH  SYSTIME. TIME  DO 
BEGIN 

CURRENT: =SYSTIME. TIME. HOUR;  . 

PLACEC CURRENT, 1805); 

(*  USE  'POKE'  TO  INSERT  A  ':'  *) 

POKE(186,1807); 

CURRENT : =S YS  TIME . TIME . MINUTE ; 

PLACEC CURRENT, 1808); 

POKE(186,1810); 

CURRENT : =S YS  TIME . TIME . SECOND ; 

PLACE(CURRENT,1811); 

END; 

UNTIL  RINGTOUCU; 

HUNT(X,Y); 

WRITE(CHR(7)); 

END; 

C*  THE  NEXT  PROCEDURE  PICKS  UP  THE  SERVICE  NUMBER  *) 

C*  AND  USES  IT  TO  CREATE  THE  STUDENT'S  FILE  *) 

SEGMENT  PROCEDURE  SERVICE; 

VAR  I; INTEGER; 

DONE; BOOLEAN; 

L,  LETTER: STRING; 

BEGIN 

TEMP;-"; 

DONE; -FALSE; 

L:='1234 567890'; 

ERASE; 

WRITELNC 'ENTER  YOUR'); 

LINESC2); 

WRITELNC 'SERVICE  NUMBER:'); 

LINES(2); 

WRITEC'  '); 

FOR  I:“l  TO  10  DO 
BEGIN 

WRITEC'  ',Lll]); 

END; 

LINES(3); 

WRITELNC 'PRESS  PEN:'); 
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WRITELN('TO  THIS  LINE  TO  SUBTRACT  A  NUMBER'); 
L1NES(3); 

WRITELNC' TO  THIS.  LINE  TO  COMPLETE  YOUR  ENTRY'); 
G0T0XY(42,0); 

REPEAT  :  ^ 

.  ..HUNT(X,Y);  . 

:,.iwRiTE(.CHR(7.)).; ... 


IF  Y=7  THEN 
BEGIN 

.a:=X-4;  ■ '  ’I;  ■ 

I:=I  DIV  3; 

LETTER:“COPY(L,I,l); 

TEl-IP :  =CONCAT(  TEt-IP ,  LETTER) ; 

IF  LENGTH(TEMP)=12  THEN  TEI'1P;=C0PY(TEMP,  1, 11) 
IF  LENGTH(TEMP)=3  THEN  TEMP :=CONCAT( TEMP, '  ') 
IF  LENGTH(TEMP)=6  THEN  TEMP :»CONCAT( TEMP, '  ') 
GOTOXY(17,3); 

WRITE(TEMP,'  ':2); 

GOTOXY(42,0); 

END; 

IF  Y==12  THEN 
BEGIN 

I:=LENGTH(TEMP); 

IF  1=4  THEN  I; =3; 

IF  1=7  THEN  I; =6; 

I;  =1-1; 

TEMP:=COPY(TEMP,l,I); 

GOTOXY(17,3); 

WRITE(TEMP,'  'j5); 

GOTOXY(42,0); 

END; 

IF  (Y=16)  AND  <LENGTH(TEMP)=11)  THEN  IX)NE:»TRUE; 
UNTIL  DONE; 

TEMP : =CONCAT( ' #5 ; ' , TEMP ) ; 

ND; 


(*$I#5;SEG.CPS.TEXT*) 

(*$I#5;HELP.TEXT*) 

(*  THE  FOLLOWING  IS  A  GENEfiAL  CONTINUE  ROUTINE  *) 
PROCEDURE  CONT; 

BEGIN 

GOT0XY(0,21); 

WRITELNC'**  PRESS  PEN  TO  THIS  LINE  TO  CONTINUE  **'); 
G0T0XY(42,0); 

REPEAT 

HUNT(X,Y); 

UNTIL  Y-22; 

WRITE(CHR(7)); 

END; 

(*  DISPLAl  IS  USED  TO  DISPLAY  TEXT  BEFORE  AND/OR  AFTER  *) 
(*  THE  FIRST  MOTION  SEQUENCE  OF  EACH  JUNCTION  POINT  *) 
PROCEDURE  DISPLAl (POINT: INTEGER);  . 

BEGIN 

FOR  I:=l  TO  F^.TEXTl-lANY [POINT]  DO 
BEGIN 
GET(H); 

ERASE;  '  . 

FOR  J:=l  TO  20  DO 
BEGIN 

WRITELN(H"[J]); 

END; 

CONT; 

END; 

END; 


(*  DISPLA2  IS  USED  TO  DISPLAY  FEEDBACK  TO  THE  STUDENT  *) 
PROCEDURE  DISPU2; 

BEGIN 
WITH  F“  DO 
BEGIN 

SEEK(L,FEEDWHERE(CH01CE] ); 

FOR  I;-l  TO  FEEDMANY[CHOICE]  DO 
BEGIN 
GET(L); 

ERASE; 

FOR  J:-l  TO  20  DO 
BEGIN 

WRITELN(L"[J]); 

END; 

CONT; 

END; 

END; 

END; 

(*  DISPLA3  IS  USED  TO  DISPLAY  THE  SELECTED  CHOICE  *) 
PROCEDURE  DISPLA3; 

BEGIN 

WITH  F"  DO 
BEGIN 
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,  V  FOR  -  J ; “POSITIONS [ CHO ICE » 1 ]  TO  POS ITIONS [ CHO ICE , 2 ]  DO 
■"■•■■■■■  -  BEGIN 

WRITELNCMSWERS[J])j 
■  END; 

LINESO); 

•  :  VfRITELN('  4, 'DO  YOU  WANT  TO  KEEP  THIS  ANSWER?'); 

END; , 

END-;  :  ■■■  •  ■ 

(*  THE  NEXT  PROCEDURE  PRINTS  YES  AND  NO  ACROSS  THE  *) 

(*  SCKEEN  AND  SETS  ANSWER  TO  Y  OR  N  APPROPRIATELY  *) 
PROCEDURE  GETANS; 

VAR  I: INTEGER; 

BEGIN  i'' 

GOTOXY(0,16); 

FOR  I;=l  TO  10  DO 
BEGIN 

WRITEC'YES-'); 

END; 

GOTOXY(0,19); 

FOR  I;“l  TO  13  DO 
BEGIN 

WRITEC'NO-'); 

END; 

GOTOXY(42,0); 

REPEAT 

HUNT(X,Y); 

UNTIL  (Y=17)  OR  (Y=20); 

WRITE(CHR(7)); 

IF  Y«17  THEN  ANSWER: ='Y' 

ELSE  ANSWER: »'N'; 

END; 

(*  THE  FOLLOWING  CONTROLS  WHETHER  OR  NOT  THE  *) 

(*  OVERVIEW  IS  DISPLAYED  *) 

PROCEDURE  INTRO; 

BEGIN 

RESET(H,'#5;INTRO'); 

RESEI(L, ' 5 : TEXT. TWO' ) ; 


REPEAT 

ERASE; 

GOT0XY(0,4); 

WRITELN('  ':5,'W0UL)  YOU  LIKE  AN  OVERVIEW  OF'); 
WKITELN ; 

WRITELNC'  ';14/THE  PROGRAM?'); 

GETANS; 

IF  ANSWER® 'Y'  THEN 
BEGIN 

SEEK(H,0); 

DISPLAl(l); 

END; 

UNTIL  ANSWERO'^'; 

(*  FILE  H  IS  CHANGED  FROM  INTRO  TO  TEXT. ONE  *) 

(*  AND  THE  STUDENT  FILE  IS  OPENED  *) 

CLOSE (H, LOCK); 


RESET(H, ' #5 : TEXT. ONE ' ) ; 

REWRITE(G,TEMP>; 

SEEK(G,1); 

(*  THE  STUDENT  IS  ALLOWED  TO  CHOOSE  BETWEEN  THE  EXPERIENTIAL  *) 
(*  AND  THE  PEDAGOGIC  MODES  IP  F“. RESPONSE  IN  RECORD  0  IS  TRUE  *) 
(*  THE  VARIABLE  P  DENOTES  WHICH  MODE  IS  SELECTED  *) 

IF  F''. RESPONSE  THEN 
BEGlii 
ERASE; 

WRITELNC'  4, 'PICK  ONE  OF  THE  FOLLOWING  MODES'); 
GOTOXY(0,8); 

WRITELN('  ': 14, 'PEDAGOGICAL'); 

GOTOXY(0,16); 

WRITELN('  ': 14, 'EXPERIENTIAL'); 

GOT0XY(42,0); 

REPEAT 

HUNT(X,Y); 

UNTIL  (Y=9)  OR  (Y=17); 

WRITE(CHR(7)); 

END 

ELSE  Y; =9; 

IF  Y=9  THEN 
BEGIN 

PEDAGO:='TRUE; 

P;=l; 

END 

ELSE 

BEGIN 

PEDAGO; “FALSE; 

P:=2; 

END; 

END; 

(*  THE  FOLLOWING  DISPLAYS  THE  CHOICES  THAT  HAVEN'T  BEEN  *) 

(*  SELECTED  AND  PICKS  UP  A  RESPONSE.  'CHOICE'  CONTAINS  *) 

(*  THE  SELECTED  CHOICE  NUMBER.  THE  RESPONSE  UTENCY  *) 

(*  IS  ALSO  COMPUTED  AND  STORED  AS  G*.TIMERS[SELECTED]  *) 
PROCEDURE  LOCATE; 

VAR  SKIP,  FINISHED; BOOLEAN; 

HOUR,  TIMER,  TEMP; INTEGER; 

BEGIN 

TIMESTAMP (SYS TIME); 

HOUR ; -S  YS  TIME . TIME . HOUR ; 

TmER;»SYSTIME, TIME. MINUTE*60+SYSTIME.  TIME.  SECOND; 

FOUND; -FALSE; 


WITH  F"  DO 
BEGIN 

(*  FIRST  WRITE  THE  PROMPT  LINE  IF  IT  EXISTS  *) 
ERASE; 

TEMP ; -POS ITIONS [ i , 1 1 - 1 ; 

IF  TEMP  <>0  THEN 
BEGIN 

FOR  I;-i  TO  TEMP  DO 
BEGIN 

WRITELN(ANSWERS[I]); 

END; 
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. .  i;_w. 

,  THEN,.  DISI'LA.Y  EACH  UNSELECTED  CHOICE  *)  . 

-  FOR  I;-l  TO  5  DO 
BEGIN 

.  .■  SKIP:.=FALSE;  ; 

-IF  PREVIOUS  >1  THEN  - :  i  V: ,  .  ; - 

'-BEGIN;  :;::: 

:  .  J:“0;  ■ 

REPEAT  .  • 

IF  KEPT[J]=I  THEN  SKIPi=TRUE; 

UNTIL  (SKIP)  OR.  (J=PREVIOUS); 

■  '  END; 

IF  (NOT  SKIP)  AND  (POSITIONS [ I, 1]<30)  THEN 
BEGIN 

'  FOUND:=TRUE; 

TEMP:»POSITIONS[I,l]; 

J:=TEMP-1; 

G0T0XY(0,J); 

FOR  J:=TEtlP  TO  POSITIONS  [1, 2]  DO 
BEGIN 

WRITELN(ANSWERS[Jj); 

END; 

END; 

END; 

GOTOXY(42,0); 

FINISHED;=FALSE; 

IF  FOUND  THEN 
BEGIN 
REPEAT 
I:=0; 

HUNT(X,Y); 

REPEAT 
I:  =1+1; 

IF  (Y>-POSITIONS[I,l])  AND  (Y<»POSITIONS[I,2l) 
THEN  FINISHED; “TRUE; 

UNTIL  (FINISHED)  OR  (1=5); 

UNTIL  FINISHED; 

(*  STOP  THE  CLOCK  *) 

TIME STAHP( SYS TIME); 

IF  SYSTIME.TIME.HOUR>HOUR  THEN 

SYS TIME. TIME . MINUTE: -SYS TIME . TIME . NINUTE+60 ; 

(*  SAVE  THIS  RESPONSE  LATENCY  *) 

O'* . TIMERS  [ SELECTED] ; »( SYSTIME . TIME, MINUTE*60+ 
SYSTIME.TIME.SEGOND)-TIMER; 

(*  SET  'CHOICE'  EQUAL  TO  THE  SELECTION  *) 
WRITE(CHR(7)); 

CHOICE; -I; 

END; 

END; 

END; 


(*  THE  FOLLOWING  IS  USED  TO  DISPLAY  THE  VARIOUS  MOTION  *) 
(*  sequences,  'which'  DETERMINES  THE  TYPE  OF  SEQUENCE  *) 
(*  THAT  IS  PLAYED.  *) 
PROCEDURE  PLAYI'K WHICH: INTEGER) ; 
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VAR  I,  J; INTEGER; 

BEGIN 
WITH  F*  DO 
BEGIN 

CASE  WHICH  OF 
1: BEGIN 

START:=SEQ1[I]; 

STOP:=SEQl[2]; 

SEG(START,STOP,3); 

END; 

2; BEGIN 

START: -SEQ2 [CHOICE,  1]; 

STOP ;»SEQ2 [CHOICE,  2]; 

SEG(SIART,STOP,3); 

END; 

3; BEGIN 

FOR  I:=l  TO  SEQMANY[CHOICE]  DO 
BEGIN 

J;=(I-1)*2; 

START: “SEQ3 [CHOICE,  J+1]; 

STOP :=SEQ3[ CHOICE,  J+2]; 

SEG(SIART,STOP,3); 

END; 

END; 

END; 

END; 

END; 

(*  THE  FOLLOWING  PICKS  UP  A  RESPONSE  AND  IF  THE  STUDENT  *) 

(*  IS  IN  THE  PEDAGOGICAL  MODE,  GIVES  THE  STUDENT  THE  *) 

<*  OPTION  OF  KEEPING  THE  CHOICE  OR  PICKING  ANOTHER  *) 

PROCEDURE  RESPOND; 

BEGIN 

WITH  P*  DO 
BEGIN 
REPEAT 
ANSW£R:-'N'; 

<*  GO  PICK  UP  A  RESPONSE  *) 

LOCATE; 

(*  IF  YOU'VE  NOT  RUN  OUT  OF  ANSWERS  TO  PICK  THEN  *) 

IF  FOUND  THEN 
BEGIN 

(*  SAVE  THE  SELECTION  *) 

G* ♦ CHOS  EN [SELECTED 1 : -CHOICE ; 

(*  IF  IN  THE  PEDAGOGICAL  MODE,  ALLOW  THE  STUDENT  *) 
(*  A  CHOICE  AS  TO  WHETHER  OR  NOT  TO  KEEP  THE  *) 
(*  THE  ANSWER  THAT  WAS  SELECTED.  *) 

IF  PEDAGO  THEN 
BEGIN 

PLAYIT(2); 

DISPU3; 

GETANS ; 

IF  ANSWER-'Y'  THEN  G*.KEEP[SELECTEDl :-TRUE 
ELSE  G*. KEEP [SELECTED]: -FALSE; 

END 


•ELSE  ANSWER:»*Y'  j 


SELECTED: =SELECTED+1 ; 
END  . 

ELSE  ANSWER: ='Y';  ' 

UNTIL. ANSWER='Y'; 

END;  M.... 


(*  THE  NEXT  PROCEDURE  GOES  TO  PROCEDURE  "RESPOND'  AND  *) 

(*  DISPLAYS  SEQ3  IF  APPROPRIATE.  IT  ALSO  SAVES  THE  *) 

(*  RESPONSE  TO  BE  PLACED  INTO  THE  STUDENT  FILE  *) 

PROCEDURE  COUNTIT; 

BEGIN 

WITH  F"'  DO 
BEGIN 

FOUND :=FALSE; 

IF  RESPONSE  THEN  RESPOND 
ELSE  CHOICE: “CORRECT; 

(*  IF  A  SELECTION  WAS  MADE,  PLAY  SEQ3  IF  APPROPRIATE  *) 

(*  AND  KEEP  AW  INTERNAL  RECORD  OF  WHAT  CHOICE  WAS  MADE  *) 

IF  FOUND  THEN 
BEGIN 

IF  PLAY[P,2]  THEN  PLAYIT(3); 

IF  PEDAGO  THEN  DISPU2 
ELSE  CORRECT: “CHOICE; 

KEPT [PREVIOUS] : “CHOICE; 

PREVIOUS :“PREVIOUS+l ; 

END; 

END; 

END; 

PROCEDURE  REDO; 

BEGIN 

(*  "PREVIOUS"  IS  USED  FOR  INTERNAL  RECORD  KEEPING  *) 

(*  "SELECTED"  IS  USED  FOR  EXTERNAL  RECORD  KEEPING  *) 

PREVIOUS:-!; 

SELECTED: »l; 

FOR  J:-l  TO  5  DO 
BEGIN 

KEPT(JJ:-0; 

END; 

END; 

(*  THF:  FOLLOWING  WRAPS  THINGS  UP  WHEN  THE  STUDENT  IS  FINISHED  *) 

(*  WITH  THE  LESSON.  FILES  G,  U,  AND  L  ARIi  CLOSED.  THE  NAME  OF  *) 

(*  THE  STUDENT  FILE  NAME  [STORED  IN  "TEMP")  IS  SAVED  IN  "STUDENT  *) 

(*  THE  NUMBER  OF  SUCH  FILES  IS  COHPUTEDAND  STORED  IN  *) 

(*  F*.TEXTtlANY[2j  IN  RECORD  0  OF  "POINT. ONE'  *) 

PROCEDURE  FINI; 

BEGIN 

ERASE; 

GOTOXY(0,4); 

WRITELN('  ';13,"END  OF  PROGRi\I-l ' )  ; 

GOTOXY(0,2l); 

WRITELN('  5, 'PRESS  PEN  TO  THIS  LINE  TO  EXIT'); 

GOTOXY(42,U); 


REPEAT 

Hl]NT(X,Y); 

UNTIL  y=22; 

WRITE(CHR(7)); 

ERASE; 

(*  SAVE  THE  TIME  OF  DAY  IN  WHICH  THE  STUDENT  FINISHED  *) 
(*  THE  LESSON  AND  SAVE  THIS  TIME  WITH  THE  START  TIME  *) 
TIMESTAMP(SYSTIME); 


WITH  SYSTDIE.TIME  DO 
BEGIN 

(*  SAVE  THE  START  TIME  *) 

FOR  I:=l  TO  3  DO 
BEGIN 

G“ .  TIMERS  [  I  ] :  =TIMERS  1 1  ] ; 

END; 

(*  SAVE  THE  STOP  TIME  *) 

G'‘.TIMERS[4]:=HOUR; 

G^.TIMERS [5 ]: “MINUTE; 

G'' .  TIMERS  [  6  ] :  “SECOND ; 

END; 

(*  SAVE  THE  NUMBER  OF  JUNCTION  POINTS  GONE  THROUGH  *) 

(*  Ai'JD  STORE  IT  IN  RECORD  0  OF  FILE  G[THE  STUDENT  FILE]  *) 
G". NUMBER: “COUNTER; 

G".KEEP[l]:»PEDAGO; 

SEEK(G,0); 

PUT(G); 

CLOSE (G, LOCK); 

CLOSE(H,LOCK); 

CLOSE(L,LOCK); 

(*  FIND  OUT  WHERE  TO  PUT  THE  NUMBER  OF  THIS  STUDENT  *) 

(*  FILE.  AFTER  YOU'VE  STORED  IT,  KICK  THE  COUNTER  *) 

(*  (F''.TEXTNANY[2l)  UP  BY  ONE  AND  SAVE  IT.  *) 

SEEK(F,0); 

GET(F); 

RESET(M,'tf5; STUDENT'); 

SEEK(M, F* . TEXTMANY [2 ) ) ; 

M^IU^-TEMP; 

PUT(M); 

F* .  TEXTMANYU  ] :  -F* .  TEJCTNANY 1 2  ]4-l ; 

SEER(F,0); 

PUT(F); 

CLOSE(F,LOCK); 

CLOSE(H,LOCK); 

REJECT; 

END; 

THE  MAIN  PROGRAM  STARTS  HERE  *) 

BEGIN 

<*  INITIALIZE  THE  VIDEODISC  AND  SET  VALUES  *) 

STARTA; 

(*  ALLOW  THE  STUDENT  TO  BYPASS  THE  LIGHT-PEN  INSTRUCTIONS  *) 
ORIGIN; 

IF  CUOICE>«COUNT  THEN 
BEGIN 

SEG(F“ . SEQl I 1 ) ,F* .SEQl 12 ] ,3) ; 

ORIGIN; 


■-..END; 

IF  CHOICE>=COUNT  THEN 
BEGIN 

SEG( F" . SEQl [ 1 1 , F* . SEQl [ 2 1 , 3 ) ; 

LIGHT; 

END 

ELSE  ERASE; 

C*  DISPLAY.  THE  TDIE  AND  DATE  *) 

TIME; 

(*  PICK  UP  THE  SERVICE  NUMBER  TO  BE  USED  TO  CREATE  FILE  G  *) 
SERVICE; 

(*  ALLOW  THE  STUDENT  TO  BYPASS  THE  INTRODUCTION  *) 

INTRO; 

COUNT ;-l; 

COUNTER :=0; 

G*.KEEP[1]J=-TRUE; 


REPEAT 

IF  C0UNT<1  THEN  COUNT: =1; 

WITH  F*  DO 
BEGIN 

(*  SAVE  THE  JUNCTION  POINT  NUMBER  *) 

G“.NUMBER:=»JUNCTION [COUNT] ; 

(*  GET  THE  APPROPRIATE  DATA  FROM  FILE  POINT. ONE  *) 

SEEK( F , JUNCTION ( COUNT ] ) ; 

GET(F); 

(*  MOVE  TO  THE  APPROPRIATE  RECORD  FOR  TEXT  *) 
SEEK(H,TEXTWHERE); 

(*  DISPLAY  TEXT  AND  MOTION  SEQl  IF  APPROPRIATE 
IF  TEXT(P,i]  THEN  DISPLAl(l); 

IF  P;.AY{P,1]  THEN  PUYIT(U; 

IF  TEXT{P,21  THEN  DISPUU2)j 
(*  RESET  COUNTERS  *) 

REDO; 

KEEP  PICKING  UP  CHOICES  UNTIL  CHOICE-CORRECT  *) 

REPEAT 

COUNTIT; 

UNTIL  CHOICE-CORRECT; 

(*  ZERO  THE  NEXT  G*. CHOSEN  VARIABLE  FOR  USE  BY  *) 

(*  A  PROGRAM  FOR  READING  THE  DATA... THIS  ACT'S  AS  *) 

(•  AS  AN  END  OF  ENIM  DELIMITER 
G*. CHOSEN (SELECTED I :-0; 

(*  TRANSFER  THE  Di\TA  ONTO  DISK  *) 

PUT(G); 

REDO; 

PICKED: -CHOICE; 

(*  UETERlilNE  WHERE  YOU  GO  TO  NEXT  *) 

JUNCTION  I COUNT+l | :-NEXTl PICKED | ; 

(*  IF  IN  THE  PEDAGOGICAL  MODE,  ALLOW  THE  FOLLOWING  OPTIONS  *) 
IF  PEUAGO  THEN 
BEGIN 
REPEAT 

HELPFL.\G; -FALSE; 

EKiVSE; 

WRITELNC'  8, 'PRESS  THE  PEN  TO  ONE  OF'); 

UKITELN('  ':8,'THE  FOLLOWING  LINES  TO:'); 

G0T0XY(0,5); 


WRITELN('  9, 'LOOK  AT  OTHER  CHOICES?'); 
GOTOXY(0,9); 

WRIT£LN('  '; 6, 'REPEAT  LAST  CORRECT  CHOICE?'); 
GOTOXY(0,13); 

WRITELN('  '; 13, 'REQUEST  HELP?'); 

GOT0XY(0,17); 

WRITELN('  CONTINUE  TO  THE  NEXT  CHOICE  POINT?') 
G0T0XY(42,0); 

HUNT(X,Y); 

WRITE(CHR(7)); 

IE  Y=6  THEN  COUNTIT; 

IF  Y=10  THEN 
BEGIN 

IF  PLAY[P,2]  THEN  PLAYIT(3); 

END; 

IF  Y=14  THEN 
BEGIN 

HELPFLAG:=TRUE; 

Y:=18; 

END; 

UNTIL  Y«18; 

END; 


G''.  CHOSEN  [  SELECTED  ]:=0; 

PUT(G); 

IF  (PEDAGO)  AND  (HELPFLAG)  THEN  HELP; 

(*  IF  AT  END  POINT  IN  EXPERIENTIAL  MODE.  GO  TO  HELP  *) 
IF  (NOT  PEDAGO)  AND  (DONE[PICKED] )  THEN  HELP; 

COUNT :=COUNT+l; 

COUNTER  ;=COUNTER-fl; 

END; 

UNTIL  F*. DONE [PICKED]; 

(*  WRAP  THINGS  UP  *) 

FINI; 


(*  'SEG'  DISPLAYS. A  PARTICULAR  SEQUENCE  BEGINNING  WITH  'START" .  *) 

(*  FINISHING  WITH  'STOP'  AND  DISPLAYING  THE  LAST  FRAME  FOR  'LONG'  *) 
(*  NUMBER  OF  SECONDS  .*) 

(*  THIS  VERSION  IS  -FOR  A  MOUNTAIN  HARDWARE  CPS  CARD  *) 

PROCEDURE  SEG(START»  STOP; STRING; LONG: INTEGER); 

VAR  MATCH,  HOLD,  TEMP: INTEGER;  . 

BEGIN 

FIND(START); 

WAIT; 

PLAy2( START, STOP); 

VIDEO(TRUE); 

WAIT; 

READTIME; 

TEMP:=HOURS; 

HOLD ; =MINUTES*60+SEC0NDS ; 

HOLD:=HOLD+-LONG; 

REPEAT 

READTIME; 

IF  UOURS>TEMP  THEN  MINUTES :=MINUTES+60; 

MATCH: =MINUTES*60+SECONDS ; 

UNTIL  MATCH»HOLD; 

ERASE; 

VIDEO( FALSE); 


(*  'HELP'  ALLOWS  THE  STUDENT  TO  SKIP  BACK  A  LESSON  OR 
REPEAT  A  LESSON.  *) 

PROCEDURE  HELP; 

VAR  I;INTEGER; 

TEMP; BOOLEAN; 

BEGIN 

ERASE; 

IF  NOT  PEDAGO  THEN  WRITELN('  ':15,'END  POINT'); 
GOTOXY(0,3); 

WRITELN( '  ' ; 9 , ' GO  BACK  TO  BEGINNING? ' ) ; 

GOTOXY(0,7); 

WRITELNC '  ' : 6 , ' GO  BACK  ONE  JUNCTION  POINT?'); 
GOTOXY(G,ll); 

WRITELNC'  ';6, 'REPEAT  LAST  JUNCTION  POINT?'); 
GOTOXY(0,15); 

WRITELNC'  ': 11, 'QUIT  THE  PROGRAM?'); 

GOTOXYCO,19); 

IF  PEDAGO  THEN  WRITEC'  '; 7, 'IGNORE  THIS  HELP  REQUEST? 
GOTOXYCA2,0); 

REPEAT 

HUNTCX.Y); 

WRITECGHRC7)); 

UNTIL  Y>3; 

TEMP DONE [PICKED] ; 

F" . DONE [ P ICKED ] ; »F ALSE ; 

CASE  Y  OF 
4; BEGIN 

COUNT ;«0; 

I;=»l; 

END; 

8:B£GIN 

COUNT: -COUNT-2; 

I;  "2; 

END; 

i2:BEGIN 

COUNT :-GOUNT-l; 

I:-3; 

END; 

16:BEGIN 

F".  DONE [PICKED]; -TRUE; 

I;-4; 

END; 

2U: BEGIN 

F" . DONE [PICKED ] ; -TEMP ; 
l;-5; 

END; 

END; 

G'‘.CHOSEN[l]  :-I; 

G“.CHOSEN(2];-U; 

G*. NUMBER :-0; 
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PUT(G); 

G*.CHOSEN[1]:=0; 

PUT(G); 

COUNTER ;=C0UNTER+1 
roj 


(*$S+*) 
PROGRAM  LAilP; 


(*  THIS  PROGRAM  MOVES  TEXT  INTO  AND  OUT  OF  FORMilTTED  FILES  *) 
(*  FROM  A  FORM  THAT  CAN  BE  EDITED  BY  THE  PASCAL  TEXT  EDITOR  TO  .  *) 
(*  A  FORM  USED  BY  THE  VIDEO  LESSON  PROGRAM.  THIS  PROGRAM  ALSO  *) 
(*  HAS  PROVISIONS  FOR  VIEWING  THE  FILES  IN  A  FORMATTED  FORM  AND  *) 
(*  CHECKING  THE  COUNTER  FILES.  THIS  PROGRAM  ALSO  IS  USED  TO  *) 
(*  CREATE,  CHECK,  AND  CHANGE  THE  MAIN  DATA  FILE.  THIS  PROGRAM  *) 
(*  IS  MENU  DRIVEN  WITH  PROVISIONS  FOR  THE  MOST  USED  FILES.  *) 
(*  THESE  FILES  ARE  TEXT.ONE,  TEXT.Ttv'O,  INTRO,  POINT.ONE  AND  *) 
(*  COUNTER  FILES  FOR  EACH.  *) 


USES  LIGHTPEN,  WORK,  CHAINS TUFF; 

(*  F  IS  FILE  POINT.ONE  *) 

VAR  F;FILE  OF  RECORD 

SEQ1:PACKED  ARRAY[I. .2]OF  STRING[5]; 

SEQ2:PACKED  ARKAY[1..5,  1..210F  STRING[5l; 

SEQ3;PACKED  ARRAY[1..5,  1..4]0F  STRING[5]; 

ANSWERS: PACKED  ARRAY[1. .20]0F  STRING[40]; 

POS ITIONS : ARRAY [ 1 . . 5 , 1 . . 2 ] OF  INTEGER ; 

SEQMANY: PACKED  ARRAY[1. .5]OF  INTEGER; 

FEEDMANY: PACKED  ARRAY[1..5]OF  INTEGER; 

FEEDWHERE; PACKED  ARRAY[1. .SjOF  INTEGER; 

CORRECT: INTEGER; 

TEXTMANY: PACKED  ARRAY[1. .2]0F  INTEGER; 

TEXTWHERE: INTEGER; 

RESPONSE: BOOLEAN; 

NEXT: PACKED  ARRAY [1.. 5] OF  INTEGER; 

DONE: PACKED  ARRAY[1. .5]OF  BOOLEAN; 

TEXT:PACKED  ARRAY[ 1. .2, 1. .2]OF  BOOLEAN; 

PLAY:PACKED  ARRAYt i. .2, 1. .2jOF  BOOLEAN; 

END; 

(*  G  IS  THE  TEXT  FILE  USUALLY  A  FILE  USED  BY  THE  PASCAL  EUITEK  *) 

G: INTERACTIVE; 

(*  L  IS  TliE  FORMATTED  FILE  USUALLY  INTRO,  TEXT.ONE,  OR  TEXT.TWO*) 
L:FILE  OF  PACKED  ARRAY[1..20J  OF  STRING1401; 

(*  U  IS  THE  COUNTER  FILE  USUALLY  INTRO.COUNT,  TEXT. ONE. COUNT,  *) 

(*  TEXT.IVO.COUNT,  OR  POINT.ONE. COUNT  *) 

lUFILE  OF  INTEGER; 

COUNTER,  ORIGIN,  EXTENT,  VALUE,  COUNT,  I,  J,  K: INTEGER; 

BIGGY,  WHICH,  START,  STOP: INTEGER; 

PROMPT:PACKED  ARRAYt 1. .2lOF  STRING[40]; 

ANS,  iYNSWER;ClL\R; 

COUNTSTR,  SOURCE,  DESTINATION,  DUMMY, RESPONSE:STRING; 

LEAVE,  ADD,  EVERY,  SPECIFIC,  LIST,  FEEDBACK,  QIANGE,  LOOK,  NEW: BOOLEAN 
OUT: INTERACTIVE; 

<*SItf5:FOIST.TEXT*) 

(*Sltf5 :TRANSFER.TEXT*) 


(*§!-*) 
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(*$I#5: FIRST. TEXT*) 

(*$I#5; SECOND. TEXT*) 

(*$I#5 ; STRUCTURE. TEXT*) 

BEGIN 

POKE(O,-163O0)}  : 

REPEAT 

ERASE; 

LINES(2); 

WRITELNC ' INFORMATION  FILE  MAINTAINANCE  PROGRAM') 
LINES(2); 

WRITELNC 'ENTER  YOUR  CHOICE— >'); 

LINES(3); 

WRITELNC'  1.  RUN  “TRANSFER"'); 

WRITELN; 

WRITELNC'  2.  RUN  "STRUCTURE"'); 

WRITELN; 

WRITELNC'  3.  EXIT  TO  EDITOR'); 

WRITELN; 

WRITELNC'  4.  EXIT  PROGRAM'); 

G0T0XYC20,5); 

READLNCBIGGY); 

GOTOXYC42,0); 

CASE  BIGGY  OF 
l:r^lANSFER; 

2; STRUCTURE; 

3:  BEGIN 

RESPONSE 

SETCVALC RESPONSE); 

SETCHAINC ' EXEC/EDT.TEXT' ) ; 

EXITC PROGRAM) ; 

END; 

4: BEGIN 
ERASE; 

EXITCPROGRAM) ; 

END; 

END; 

UNTIL  BIGGY='4; 

END. 


,  SEGMENT  PROCEDURE  TRANSONE; 

PROCEDURE  BREAKUP; 

BEGIN 

■REPEAT  (*  LOOP  UNTIL  CORRECT  NUMBER  ENTERED  *) 
ERASE; 

,  oWRITELN; 

WRITELN(' TRANSFER  A  FORMATTED  FILE  TO  AN'); 
WRITELN; 

WRITELN(' UNFORMATTED  FILE');  \ 

G0T0XY(0,6); 

WRITELN  ('ENTER  YOUR  CHOICE— >'); 

LINES(2); 

WRITELNC'l.  SOURCE  FILE  TEXT. ONE  ON  DRIVE  #5'); 
WRITELN; 

WRITELN('2.  SOURCE  FILE  TEXT. TWO  ON  DRIVE  #5'); 
WRITELN; 

WRITKLN('3.  SOURCE  FILE  INTRO  .  ON  DRIVE  #5'); 
WRITELN; 

WRITELN('4.  OTHER'); 

WRITELN; 

WRITELN('5.  RETURN  TO  MAIN  MENU'); 

G0TOXY(20,6); 

READLNC WHICH); 

GOTOXY(42,2); 

ERASE; 

CASE  WHICH  OF 


1 ;  SOURCE  ;=»'//  5 :  TEXT .  ONE ' ; 
2;SOURCE;»'tf5;TEXT.TWO'; 
3:S0URCE;»'//5:INTR0'; 

4;BEGIN 
WRITELN ; 

WRITELN ('ENTER  DRIVE  NUMBER  AND'); 
WRITELN ('NAJIE  OF  SOURCE  FILE— >'); 
GOTOXY(22,2); 

READLN (SOURCE); 

ERASE; 

END; 

5: BEGIN 


WHICH; »0; 

EXIT(TRAl^SONE); 

END; 

END; 

UNTIL  WHICH  IN 

COUNTSTR;-  CONCAT( SOURCE, ' .COUNT'); 

WRITELN; 

WRITELN(' ENTER  DRIVE  NUMBER  AND  NAME'); 

WRITELN('OF  DESTINATION  FILE— >'); 

GOTOXY(22,2); 

READLN(DESTINATION); 

GOTOXY(42,l); 

DESTINATION :-CONCAT(DESTINATION,'. TEXT');  (*  TAKE  CARE  OF  .TEXT  *) 
RESET(H,COUNTSTR); 

GET(H); 
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PROCEDURE  lOPUT; 

(*  THIS  PROCEDURE  PROVIDES  INPUT  FOR  THE  RECORD  *) 
(*  NUMBERS  AND  INSURES  THEY  ARE  WITHIN  RANGE  *) 


BEGIN  (*  BEGIN  MAIN  lOPUT  *) 

GOTOXY(0,7)J 

WRITE(' ENTER  START  RECORD— >'); 

GOTOXY(22,7); 

READm(  START); 

LINES(2); 

WRITE( 'ENTER  STOP  RECORD— >'); 

G0T0XY(21,10); 

READLN(EXTENT) ; 

GOTOXY(42,1); 

EXTENT :=EXTENT+1; 

IF  (START>EXTENT-1)  THEN 
BEGIN 
ERASE; 

POKE(0, -16299);  (*  TOGGLE  PAGE  2  *) 

LINES(3); 

WRITELNC'THE  STARTING  PAGE  NUMBER  CANNOT  BE'); 
WRITELNC' GREATER  THAN  THE  ENDING  PAGE  NUMBER'); 
LINES(3); 

WRITELNC 'PRESS  RETURN  TO  CONTINUE'); 

INVLN(0,23,9); 

POKECO, -16300);  (*  TOGGLE  PAGE  1  *) 

GOTOXY(42,0); 

READIN; 

ERASE; 

END; 

IF  (EXTENT>H‘)  THEN 
BEGIN 
ERASE; 

POKECO, -16299);  C*  TOGGLE  PAGE  2  *) 

LINESC3); 

WRITELNC 'THERE  ARE  ONLY  RECORDS  IN  THE  FILE') 

LINESC3); 

WRITELNC 'RECORD  NUMBERING  STARTS  AT  ZERO'); 

LINESCO); 

WRITELNC 'PRESS  RETURN  TO  CONTINUE'); 

IN\'LNC0,23,12); 

POKECO, -16300);  C*  TOGGLE  PAGE  1  *) 

G0T0XYC42,0); 

READ  11]; 

ERASE; 

END; 

END;  C*  end  IOPUT  *) 

BEGIN  C*  BEGIN  MAIN  TRANSONE  *) 


BREAKUP; 

ERASE; 

WRIXELN; 
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WRITELNC' THERE  ARE  /.H*/  RECORDS');  ;  .. 

LINES(3); 

WRITE(' SHOULD  I  TRANSFER  ALL  RECORDS?  Y/N'); 
GOTOXY(36,5); 

RESET(L, SOURCE); 

REWRITE(G , DESTINATION ); . 

;READ(ANSWER);  ^ 

IF  ANSWER='Y'  THEN 
BEGIN 

START:=0; 

EXTENT; =H"; 

END  ■ 

ELSE 

BEGIN 

REPEAT  (*  REPEAT  UNTIL  USABLE  INPUT  *) 

lOPUT; 

UNTIL  (STARKEXTENT)  AND  (EXTENT<=»H'')  ; 

END; 

SEEK(L, START); 

START :=SIART+i; 

ERASE; 

LINES(2); 

WRITELN('THE  DATA  FROM  RECORD  #  O; 
WRITELNC'HAVE  BEEN  TRANSFERRED'); 
GOTOXY(42,l); 

FOR  COUNT; -START  TO  EXTENT  DO 
BEGIN 
GET(L); 

WRITELN(G, 'START'); 


FOR  l;“l  TO  20  DO 
BEGIN 

DUMMY ;-L"[I]; 

WRITELN(G, DUMMY); 

END; 

WRITELN(G,'ENO'); 

GOTOXY(23,2); 

WRITELN( COUNT-1); 

G0T0XY(42,1); 

END; 

WRITELN(0/ FINISHED'); 

WHICH:-0;  (*  REMOVING  WHICH;=0  WILL  EXIT  PROGRAM  *) 

CLOSE(G,LOCK); 

CLOSE(L,LOCK); 

CLOSE(U,LOGK); 

ERASE; 

END;  (*  END  TRiVNSONE  *) 

(*  THIS  PROCEDURE  IS  USED  TO  MOVE  DATA  FROM  A  TEXT  FILE  *) 
i*  INTO  A  FILE  WITH  THE  FORIIAT  USED  BY  THE  VIDEODISC  *) 

(■^  PROGRAM  *) 

SEGMENT  PROCEDURE  MOVERONE; 

PROCEDURE  BREAKUP; 
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REPEAT  (*  REPEAT  UNTIL  USABLE  INPUT  *) 

ERASE; 

GOTOXY(0,1); 

WRITELN(' TRANSFER  AN  UNFORMATTED  FILE  TO  A'); 

WRITELN; 

WRITELN(' FORMATTED  FILE'); 

.GOTOXY(0,6); 

WRITELN(' ENTER  YOUR  CHOICE— >'); 

LINES(2); 

WRITELNC'l.  DESTINATION  FILE  TEXT. ONE. ON  DRIVE  #5'); 
WRITELN; 

WRITELN('2.  DESTINATION  FILE  TEXT. TWO  ON  DRIVE  #5'); 
WRITELN; 

WRITELN('3.  DESTINATION  FILE  INTRO  ON  DRIVE  #5'); 
WRITELN; 

WRITELN('4.  OTHER'); 

WRITELN; 

WRITELN('5.  RETURN  TO  MAIN  MENU'); 

GOTOXY(20,6); 

READLN (WHICH); 

G0T0XY<42,1); 

CASE  WHICH  OF 

1 ;  DE  STINATION :  = '  //5 :  TEXT .  ONE ' ; 

2 ; DE  STINATION ;  = ' 5 ! TEXT. TWO ' ; 

3 ; DE  STINATION : » ' 5 : INTRO ' ; 

4; BEGIN 
ERASE; 

WRITELN; 

WRITELN ('ENTER  NAME  AND  DRIVE  NUMBER'); 

WRITELN('OF  DESTINATION  FILE— >'); 

GOTOXY(22,2); 

REAULM(DESTINATION); 

END; 

5;  BEGIN 
WHICH ;-0; 

EXIT(NOVERONE); 

END; 

END; 

UNTIL  WHICH  IN  11..5]; 

ERASE; 

GOTOXY(0,2); 

WUITELN(' ENTER  DRIVE  NUMBER  AND'); 

WRITELN ('NAllE  OF  SOURCE  FILE— >'); 

GOTOXY(22,3); 

READLN(SOURCE); 

SOURCE :-CONCAT( SOURCE, '.TEXT');  (*  TAKE  CARE  OF  .TEXT  *) 

END;  (’*'  END  BREAKUP  ’•') 

BEGIN  (*  BEGIN  MOVERONE  MAIN  *) 

BREAKUP; 

ERASE; 

COUNTSTR; -  CONCAK DESTINATION , ' .COUNT' ) ; 
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.GOTOXY(0,2); 

WRITELNC'DOES  THE  DESTINATION  EXIST?  Y/N  '); 

GOTOXY(32,3); 

READ(ANSWER); 

RESET(G, SOURCE); 

IF  ANSWERO'Y'  THEN 
BEGIN 

,  REWRITE(H,COUNTSTR); 

CLOSE(H,LOCK); 

RESET (H.COUNTSTR); 

REWRITE(L, DESTINATION);  (*  CREATE  FILES  *) 

COUNT :=0; 

.  H“:=0; 

END 

ELSE 

BEGIN 

ERASE; 

WRITELN; 

WRITELN( 'ENTER  DESTINATION  RECORD— >'); 

GOTOXY(27,l); 

READU'l(I); 

RESET(L, DESTINATION);  (*  OPEN  FILES  *) 
RESET(H,COUNTSTR); 

GET(H); 

COUNT:  =>  I; 

END; 

SEEK(L,I); 

ERASE; 

GOTOXY(0,3); 

WRITELNC'DATA  ARE  BEING  TRANSFERRED'); 

WRITELN; 

WRITELN ('THE  DATA  HAVE  BEEN  TRANSFERRED'); 

WRITELN  ('INTO  RECORD  If')} 

GOTOXY(42,l); 

REPEAT 

FILL  ALL  THE  ELEMENTS  OF  L  *) 

FOR  I;-l  TO  20  DO  L^H):"'  '; 

(*  FIND  THE  START  OF  A  SECTION  OF  TEXT  *) 

(*  OR  THE  END  OF  THE  FILE  *) 

REPEAT 

READLN(G, DUMMY); 

UNTIL  (DUMMY- 'START')  OR  (DUtHlY-'FINISHED'); 

(*  IF  mis  IS  THE  START  OF  TEXT,  TRANSFER  THE  TEXT  TO  L  *) 
(*  STOP  WHEN  YOU  HIT  AN  'END'  OR  WHEN  20  LINES  HAVE  BEEN  *) 
(*  TRANSFERRED  *) 

IF  DUMMY-' START'  THEN 
BEGIN 
I:“0; 

REPEAT 

READUUC,  DUMMY); 

IF  LENGTH(DUMMY)>A0  THEN  DUMMY : -COP Y(DUM1‘;Y,  1,40); 
L'[I]:»DUMMY; 

UNTIL  (DUMMY- 'END')  OR  (1-20); 

IF  L“(I1-'ENU'  THEN  L'(Il;-'  '; 

PUT(L); 

GOTOXY(l3,6); 

WRITELN( COUNT) ; 


GOTOXY(42,l); 

COUNT :=C0UNT+1; 

END; 

UNTIL  DUMMY='FINISHED'; 

IF  CUUNT>H''  THEN 
BEGIN 

H^t^COUNT; 

SEEK(H,0); 

(*  UPDATE  THE  COUNTER  FILE  IF  ANY  NEW  RECORDS  HAVE  BEEN  ADDED  *) 
PUT(H); 

END; 

WHICH: =0;  (*  REMOVE  TO  EXIT  PROGRAM  *) 

CLOSE(G,LOCK); 

CLOSE(L,LOCK); 

CLOSE (H, LOCK); 

END;  (*  END  MOVERONE  *) 


SEGMENT  PROCEDURE  MOVERT^W; 

(*  THIS  PROCEDURE  CONVERTS  THE  DATA  FROM  A  TEXT  FILE  FORl-lAT  *) 
(*  TO  IHE  FORilAT  USED  BY  PROGRAM  *) 


BEGIN 

ERASE; 

LINES(2); 

WRITELN(' ENTER  YOUR  CHOICE— >'); 

WRITELN; 

WRITELNC'l.  MOVE  TEXT  FILE  INTO  POINX.ONE'); 

WRITELN; 

WRITELN( ' 2 .  RETURN  TO  MAIN  MENU ' ) ; 

G0T0XY(20,2); 

READLN(WHICH); 

IF  WHICH  -  2  THEN 
BEGIN 

WHICH :-0;  (*  RETURN  TO  MAIN  MENU  *) 

EXIT(MOVERTWO); 

END; 

ERASE; 

GOTOXY(0,2); 

WRITELN('Etn’ER  SOURCE  DRIVE  Nltt-IBER'); 

WRITELN('AND  FILE  NAl'lE— >'); 

GOTOXY(16,3); 

READLN(SOURCE); 

SOURCE: -CONCAKSOURCE, '.TEXT');  (*  TAKE  aRE  OF  .TEXT  *) 

WRITELN; 

WKITELN('1S  DESTINATION  tf5:POINT.ONE?  Y/N'); 

GOTOXY(34,5); 

R£AD(ANS); 

GOTOXY(42,l); 

IF  ANS  -  'Y'  THEN 
DE  STINATION : - ' #5 : PO INT. ONE ' 

ELSE 

BEGIN 

Ei^ASE; 

WRITELN; 

URITELNC' ENTER  DESTINATION  DRIVE  NUMBER'); 
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WRITELN( 'AND  FILE  NAME— >'); 

GOTOXX(16,2); 

READLN(DESTINATION) ; 

GOTOXY(42,2); 

END; 

ERASE; 

WRITELN; 

WRITELN  ( '  ENTER  DE  STINATION  RECORD— >  '  ) ; 

GOTOXY(27,l); 

READLNC COUNT); 

ERASE; 

WRITELN; 

WRITELNC'DATA  ARE  BEING  TRANSFERRED.'); 

GOTOXY(A2,2); 

RESET(F, DESTINATION) ; 

RESET (G, SOURCE); 

SEEK(F, COUNT); 

COUNTER :=COUNT; 

LINES(3); 

WRITELN ('THE  DATA  HAVE  BEEN  TRANSFERRED  '); 

WRITELNC'INTO  RECORD  if  '); 

GOTOXY(A2,l); 

REPEAT 

(*  FIND  THE  START  OF  A  SECTION  OF  TEXT  OR  THE  END  OF  THE  FILE  *) 
REPEAT 

READLN(G, DUMMY); 

UNTIL  (DUMMY®' START')  OR  (UUFiMY-'FINISHED' ) ; 

(*  IF  TEXT,  CONVERT  THE  TEXT  AND  THEN  TRANSFER  IT  *) 

IF  DUMMY®' START'  THEN 
BEGIN 
GET(F); 

I:«0; 

REPEAT 
I: -1+1; 

REAOLN(G, DUMMY); 

IF  LENGTH(DUMMY)>AO  THEN  DUMMY ; -COP Y( DUMMY, I, AO); 

(*  ONLY  TAKE  AO  CllARACTERS  ’^) 

F*»ANSWERS(Il -.-DUMMY; 

UNTIL  (DU^^1Y»'END')  OR  (1-20); 

IF  DUlUiY-'ENU'  THEN  F‘ .ANSWERS (I | '; 

(*  MAKE  SURE  YOU  PUT  THE  OjU'A  BACK  WHERE  IT  BELONGS  *) 

SEEK(F, COUNTER); 

PUT(F); 

G0T0XY(IA,6); 

WRITELN(COUNTEIO : 

G0TOXY(A2,l); 

COUNTER ;-C0UNTLR'H ; 

E14D; 

UNTIL  DUtUlY-'FlNISUED'; 

WHlCH;-0;  (*  moVE  TO  EXIT  PROGRAJI  *) 

CU)SE(F,LOCK); 

CLOSE (G, LOCK); 

ERASE; 

END;  (*  END  MOVERIWO  *) 


SEGMENT  PROCEDURE  TRMSTWO; 


(*  THIS  SEGMENT  CONVERTS  THE  FORMATTED  STUDENT'S  CHOICES  *) 
(*  INTO  A  TEXT  FILE  FORMAT  *) 

PROCEDURE  BREAKUP; 

BEGIN 

ERASE; 

LINES(2); 

WRITELN(' ENTER  YOUR  CHOICE— >'); 

WRITELN; 

WRITELNC'l.  MOVE  TEXT  OP  POINT. ONE  TO  TEXT  FILE'); 

WRITELN; 

WRITELN('2.  RETURI^  TO  MIN  MENU'); 

G0T0XY(20,2); 

READLN( WHICH); 

IF  WHICH  =  2  THEN 
BEGIN 

WHICH: =0;  (*  REMOVE  TO  EXIT  PROGRAM  *) 

EXIT (TRANS TWO); 

END; 

END;  (*  END  BREAKUP  *) 


PROCEDURE  lOPUT;  (*  BEGIN  lOPUT  *) 

BEGIN 

ERASE; 

LINES(2); 

WRITE(' ENTER  S'CART  RECORD— >'); 

GOTOXY(21,2); 

READLN (START); 

LINES(2); 

WRITE(' ENTER  STOP  RECORD— >'); 

GOTOXY(20,5); 

READLN (EXTENT); 

GOTOXY(42,6); 

IF  (START>EXTENT)  THEN 
BEGIN 
ERASE; 

P0KE(0, -16299); 

LINES(3); 

WRITELN('THE  START  NUMBER  CANNOT  BE  GREATER'); 
WRITELN ('THAN  THE  STOP  NUMBER'); 

LINES(3); 

WRITELN(' PRESS  RETURN  TO  CONTINUE'); 
INVLN(0,23,9); 

P0KE(0, -16300); 

G0TOXY(42,0); 

READ12J; 

ERASE; 

END; 

IF  (EXTENT>H"-1)  THEN 
BEGIN 
ERASE; 

P0K£(0, -16299); 

LINES(3); 
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. ;  WRITELNC'. THERE  ARE  ONLY/, H*,'  RECORDS'); 

LINES(3); 

WRITELt^C' RECORD  NUMBERING  STARTS  AT  ZERO'); 

LINES(3);  . 

WRITELi'K' PRESS  RETURN  TO  CONTINUE'); 

INVLN(0,23,12); 

P0KE(0, -16300); 

.  GOTOXY(42,0); 

READLN; 

ERASE; 

END; 

END;  ■(*  END  lOPUT  *) 

BEGIN  (*  MAIN  TRANSTWO  *) 

BREAKUP; 

ERASE; 

G0T0XY(0,2); 

WRITELNC'IS  SOURCE  FILE  #5:POINT.ONE?  Y/N'); 

GOTOXY(34,2); 

READ(ANS); 

IF  ANS  =>  'Y'  THEN 

SOURCE  POINT.  ONE' 

ELSE 

BEGIN 

LINES(2); 

WRITELN(' ENTER  THE  DRIVE  NUMBER  AND'); 

WRITELN(' SOURCE  FILE  NAME— >'); 

GOTOXY(19,5); 

READLN (SOURCE); 

GOTOXY(42,2); 

END; 

ERASE; 

COUNTSTR!-  CONCAK SOURCE, '.COUNT');  (*  TAKE  CARE  OF  COUNTER  FILE  *) 
WRITELN; 

WRITELN(' ENTER  THE  DESTINATION  DRIVE  NUMBER  AND'); 

WRITELN('FILE  NAME— >'); 

GOTOXY(12,2); 

READLN (DESTINATION); 

DESTINATION ;-CONCAT(DESTINATION, ' .TEXT' ) ; 

GOTOXY(42,3); 

RESET(U,COUNTSTR); 

GET(H); 

LINES(2); 

WRiTELN(' THERE  ARE  ',H‘,'  RECORDS'); 

LINES(2); 

WRITE( 'SHOULD  1  TlGVNSFER  ALL  RECORDS?  Y/N'); 

GOTOXY(35,8); 

REAU(ANSWER); 

GOTOXY(42,i); 

IF  i\NSWER“'Y'  THEN 
BEGIN 

START ;«1; 

EXTENT; “(H*-!); 

END 


REPEAT 

lOPUT; 

UNTIL  (START<=>EXTENT)  AND  (EXTENT<=H*  -  1); 

RESET (F, SOURCE); 

SEEK(F, START); 

REWRITE(G, DESTINATION) ; 

ERASE; 

WRITELN; 

WRITELNC'THE  DATA  ARE  BEING  TRANSFERRED'); 

(*  GET  THE  DATA  AND  TRANSFER  IT  TO  G.  THE  DATE  ARE  *) 
(*  BRACKETED  WITH  A  'START'  AND  'END'  *) 

LINES(3); 

WRITELN ('THE  DATA  FROM  RECORD  #  '); 

WRITELNC'HAVE  BEEi'J  TRANSFERRED'); 

GOTOXY(42,l); 

FOR  COUNT :=START  TO  EXTENT  DO 
BEGIN 
GET(F); 

WRITELN(G,' START'); 

FOR  I:=l  TO  20  DO 
BEGIN 

DUMMY:=F*.ANSWERSU]; 

WRITELN (G, DUMMY); 

END; 

WRITELN (G, 'END'); 

GOTOXY(22,5); 

WRITELNC COUNT); 

G0T0XY(A2»1); 

END; 

WRITELN (G, 'FINISHED'); 

CLOSE (F, LOCK); 

CL0SE(G,L0CK); 

CL0SE(H,L0CK); 

WHICH: *0;  <*  REMOVE  TO  EXIT  PROGRAM  *) 

ERASE; 

END;  i*  END  TRANSIWO  *) 


SEGMENT  PROCEDURE  FILL; 

(*  THIS  SEGMENT  ALLOWS  THE  FORMATTED  ACCESS  OF  TEXT  AND  *) 
(*  POINT. ONE  FILES  *) 

VAR  J,K; INTEGER; 

DEVICE: STRING; 

.  .PTFILE, SPECIFIC, LIST:BOOLEAN;  • 


(*  THE  BOOLEAN  VARIABLE  PTFILE  SET  PROGRAM  FOR  *) 
(*  POINT. ONE  TYPE  OF  FILE  *) 
(*  SPECIFIC  ALLOWS  INPUT  OF  EXPLICIT  INPUT  OF  STARTING  *) 
(*  AND  STOPPING  VALUES  FOR  RECORD  RETRIVAL  *) 
(*  LIST  SETS  PRINTER  *) 


PROCEDURE  DASH;  (*  DRAWS  DELMITTERS  IN  PRINTED  FILES  *) 
BEGIN 

FOR  I:=l  TO  40  DO 
BEGIN 

WRITE(G,'*');  (*  G  IS  CONSOLE  OR  PRINTER  *) 

END; 

WRITELN(G);  (*  G  IS  CONSOLE  OR  PRINTER  *) 

END; 

PROCEDURE  lOPUT;  (*  THIS  PROCEDURE  INPUTS  RECORD  NUMBER  *) 
BEGIN 

ERASE; 

LINES(2); 

WRITELNC 'ENTER  STARTING  PAGE  NUMBER— >'); 

GOTOXY(29,2); 

READUN(  START); 

WRITELN; 

WRITELN(' ENTER  ENDING  PAGE  NUMBER— >'); 

GOTOXY(27,4); 

READLN(EXTENT); 

GOTOXY(42,0); 

IF  (EXTENT  >  U"  -  1)  THEN 
BEGIN 
ERASE; 

POXE(0, -16299); 

G0T0XY(0,3); 

.  WRITELN('  THERE  ARE  ONLY  RECORDS  IN  THE  FILE') 

LINES(3); 

WRITELT'K'  RECORD  NUMBERING  STARTS  AT  ZERO'); 

LINES(3); 

WRITELN ('  PRESS  RETUlU'i  TO  CONTINUE'); 

INVLN(2,25,12); 

POKE(0, -16300); 

G0T0XY(42,0); 

READLN; 

END; 

IF  (START  >  EXTENT)  THEN 
BEGIN 
ERASE; 
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POKE(0, -16299); 

LINES(3); 

WRITELN('  ENDING  PAGE  NUMBER  CANNOT  BE  LESS  THAN') 
WRITELN('  STARTING  PAGE  NUMBER'); 

LINES(3); 

WRITELNC'  PRESS  RETURN  TO  CONTINUE'); 
INVLN(1,24,9); 

P0KE(0, -16300); 

GOTOXY(42,0); 

READLN; 

END; 

END;  (*  END  lOPUT  *) 

PROCEDURE  PTFILL; 

(*  PTFILL  IS  ACCESSED  FOR  THE  POINT. ONE  TYPE  OF  FILE  *) 
BEGIN 

REWRITE(G,DU1MY);  (*  G  IS  CONSOLE  OR  PRINTER  *) 

RESET(H, SOURCE); 

SEEK(H,0); 

GET(H); 

RESET(F, DEVICE); 

IF  SPECIFIC  THEN 
BEGIN 
REPEAT 
lOPUT; 

UNTIL  (SIART<«EXTENT)  AND  (EXTENT<-U*  -  1); 

END 
ELSE 
BEGIN 
START; -0; 

EXTENT ;-H"  -  1} 

END; 

FOR  K:-  START  TO  EXTENT  DO 
BEGIN 
ERASE; 

IF  LIST  THEN  DASH; 

WRITELN(G); 

WRITELN(G, 'RECORD  NUMBER;  '»R); 

WRITELN(G); 

IF  LIST  THEN 
BEGIN 
DASH; 

WRITELN(G); 

END; 

IF  NOT  LIST  THEN 
BEGIN 
WRITELN; 

WRITELNC 'PRESS  RETUIU'I  TO  CONTINUE'); 
GOTOXY(42,0); 

READLN; 

ERASE; 

END; 

SEEK(F,R); 

GET(F); 

FOR  J:»l  TO  20  DO 


■  . .  BEGIN  ...... 

IF  J<10  THEN 

.  WRITELN(G,J/  ',F". ANSWERS [JD  (*  G  IS  CONSOLE  OR  PRINTER  *) 
ELSE 

WRITELN(G,J/  ",F*.ANSWERS[J]); 

END; 

IF  LIST  THEN  - 
BEGIN  ^ 

DASH; 

FOR  I:=l  TO  3  DO 
BEGIN 

WRITELN(G);  (*  G  IS  CONSOLE  OR  -RiifTER  *) 

END;' 

END; 

.  IF  NOT  LIST  TEEN 
BEGIN 
REPEAT 

WRITE  ('ANY  CHANGES  TO  BE  1-IADE?  Y/N  '  ); 

READ(ANSWER) ; 

WRITELN; 

IF  ANSWER='Y'  THEN 
BEGIN 

WRITE('ENTER  THE  LINE  NUtIBER-->' )  ; 

READLN(J); 

WRITELN ('ENTER  NEW  INFORMATION'); 

READLN(F'‘  .ANSWERSUl ) ; 

SEEK(F,K); 

PUT(F); 

ERASE; 

FOR  J:-l  TO  20  DO 
BEGIN 

IF  J>  9  THEN 

WRITELN(J,'  ',F*.ANSWERSU1) 

ELSE 

WRITELN(J,'  ',F*.ANSWERS[J]); 

END; 

END; 

UNTIL  ANSWERO'Y'; 

END; 

END; 

ERASE; 

CLOSE(F,LOCK); 

CLOSEOWLOCK); 

CLOSE(G); 

WHICH; -0; 

END;  (*  END  PTFILL  *) 


PROCEDURE  TXTl'lLL; 

(*  THIS  PROCEDURE  ALLOWS  ACCESS  IN  I'OIUIATTED  FOiUl  TO  *) 
(*  TEXT.ONE  TYPE  FILES  *) 

BEGIN 

REWRITE(G, DUMMY);  (*  C  IS  CONSOLE  OR  PRINTER  *) 

RESET(H, SOURCE); 

SEEK(H,0); 

GET(H); 


K-6^ 


RESET(L, DEVICE); 

IF  SPECIFIC  TliEN 
BEGIN 
REPEAT 
lOPUT; 

UNTIL  (START<=>EXTENT)  AND  (EXTENT<=H'‘  -  1); 

END 
ELSE 
BEGIN 
START: =0; 

EXTENT ~  1; 

END; 

FOR  K:=»  START  TO  EXTENT  DO 
BEGIN 
ERASE; 

IF  LIST  THEN  DASH; 

WRITELN(G); 

WRITELN(G, 'RECORD  NUMBER:  ',K); 

WRITELN(G); 

IF  LIST  THEN 
BEGIN 
DASH; 

WRITELN(G); 

END; 

IF  NOT  LIST  THEN 
BEGIN 
WRITELN ; 

WRITELN( 'PRESS  RETURN  TO  CONTINUE'); 

G0T0Xy(A2,0); 

REAOLN; 

ERASE; 

END; 

SEEK(L,K); 

GET(L); 

FOR  J:»l  TO  20  DO 
BEGIN 

IF  J<10  THEN 

WRITELN(G,J,'  ',L‘lJl)  (*  G  IS  CONSOLE  OR  PRINTER  *) 
ELSE 

WR1TELN(G,J,'  ',L‘lJl); 

END; 

IF  LIST  THEN 
BEGIN 
DASH; 

FOR  I:-J  TO  4  DO 
BEGIN 

WRITELNCG);  G  IS  CONSOLE  OK  PRINTER  *) 

END; 

END; 

IF  NOT  LIST  THEN 
BEGIN 
REPEAT 

WR1TE('ANV  CHANGES  TO  BE  MADE?  Y/N  '  ); 

READ( ANSWER); 

WRITELN; 

IF  ANSWER-' Y'  THEN 
BEGIN 

WRITE(' ENTER  THE  LINE  NUMBER— >'); 


.  ..  .....  READLN(J);  . 

.WRITELNC 'ENTER  NEW  INFORMATION'); 
READLN(L*[J]); 

SEEK(L,K)j 

PUT(L); 

■ERASE; 

FOR  J;=l  TO  20  DO 
BEGIN 

IF  J<10  THEN 
WRITELNC J,'  '^L^IJ]) 

ELSE 

WRITELNC  J/  '.L^lJ]); 

END;  ■ 

END; 

UNTIL  ANSWERO'Y'; 

END; 

END; 

ERASE; 

CLOSER,  lock); 

CLOSECH.LOCK); 

CLOSE CG); 

WHICH; =0; 

END;  C*  end  TXTFILL  *) 

PROCEDURE  HOW; 

C*  THIS  PROCEDURE  DETERl'IINES  HOW  TO  TREAT  THE  FILES  *) 


BEGIN  C*  START  HOW  *) 

REPEAT 

ERASE; 

LINESC2); 

WRITELNC' 1.  REVIEW  AN  ENTIRE  FILE?'); 
WRITELN; 

WRITELNC '2.  REVIEW  PART  OF  A  FILE?'); 
WRITELN; 

WRITELNC'3.  PRINT  OUT  AN  ENTIRE  FILE?'); 
WRITELN; 

WRITELNC'4.  PRINT  OUT  PART  OF  A  FILE?'); 
LXNESC2); 

WRITEC' ENTER  YOUR  CHOICE— >'); 
G0TOKYC20,ll); 

READLNC COUNT); 

GOTOXYCA2,0); 

CASE  COUNT  OF 

1; DUMMY; “'CONSOLE:'; 

2;BEG1N 

SPECIFIC: “TRUE; 
DUMMY:“'CONSOLE:'; 

END; 

3:BEGIN 

LIST: “TRUE; 

DUnMY;»'PUINTER;'; 

END; 

4: BEGIN 

LIST: “TRUE; 


SPECIFIC: “TRUE; 

Dl]MMY;“'PRINTER:'; 

END; 

END; 

UNTIL  COUNT  IN  [1..41; 

END;  (*  END  HOW  *) 

BEGIN  (*  BEGIN  MAIN  *) 

REPEAT 

REPEAT 

NEW:=FALSE;  (*  INITIALIZE  *) 

ADD; “FALSE; 

LIST;“FALSE; 

PTFILE; “FALSE; 

SPECIFIC: “FALSE; 

ERASE; 

LINES(2); 

WRITELNC'VIEW  FILES  IN  FORMATTED  FORM'); 

LINES(2); 

WRITELN( 'ENTER  YOUR  CHOICE— >'); 

WRITELN; 

WRITELN('l.  SOURCE  FILE  TEXT.ONE  ON  DRIVE  #5'); 
WRITELN; 

WRITELN('2.  SOURCE  FILE  TEXT. TWO  ON  DRIVE  #5'); 
WRITELN; 

WRITELN('3.  SOURCE  FILE  INTRO  ON  DRIVE  #5'); 
WRITELN; 

WRITELN('4.  SOURCE  FILE  POINT.ONE  ON  DRIVE  #5'); 
WRITELN; 

WRITELN('5.  OTHER'); 

WRITELN; 

WRITELN('6.  RETURN  TO  MAIN  MENU'); 

GOTOXY(20,5); 

READIN(  WHICH); 

GOTOXY(42,0); 

CASE  WHICH  OF 

liDEVIGE:«'tf5:TEXT,ONE'5 
2 ;  DEVICE :  //5 ;  TEXT.  TWO' ; 

3:UEVICE;-'tf5:INTRO'; 

4: BEGIN 

DEVICE;»'tf5: POINT.ONE'; 

PTFILE: -TRUE; 

END; 

S: BEGIN 
EtGlSE ; 

LINES(2); 

WRITELN ('ENTER  SOURCE  FILE  DRIVE  AND'); 
WRrrELN('NAME— >'); 

G0T0XY(7,3); 

READ LN( DEV  ICE); 

G0r0XY(42,3); 

L1NES(2); 

WRITELN('IS  THIS  A  POLNT.ONE  TYPE  FILE?  Y/N') 
GOTOXY(34,5); 

READ( ANSWER); 

GOTOXY(42,6); 
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IF  MSWER«  'Y;.'..THEli  PTFILE  ;«  -TRUE; 

END;.:- 

6:BEGIN 

WHICH:»0; 

.  EXIT(FILL); 

END;  ■  ■ 

■END; 

..UNTIL  WHICH  IN  [ i , .6] ;  :  •  -  ■ 

SOURCE: =CONCAT(DEVICE, ' .COUNT'); 

HOW; 

IF  PTFILE  THEN 
PTFILL 
ELSE 
rXTFILL; 

UNTIL  WHICH  IN  [I..6]; 

WHICH; =0;  (*  IHIICH  SETS  RETURN  TO  MAIN  MENU  *) 

END; 

SEGMENT  PROCEDURE  CHECK;  (*  BEGIN  CHECK  *) 

(*  THIS  SEGMENT  PROVIDES  FOR  READING,  REPLACING,  OR  CREATING  *) 

(*  COUNTER  FILES  *) 

PROCEDURE  BREAKUP; 

BEGIN 

REPEAT 

ERASE; 

GOTOXY(0,2); 

WRiXELN( 'CHECK  COUNTER  FILES'); 

LINES(2); 

WRITELN(' ENTER  YOUR  CHOICE— >'); 

L1NES(2); 

WRITELN('l,  SOURCE  TEXT. ONE. COUNT  ON  DRIVE  tfS'); 

WRITEUP; 

WRITELN('2.  SOURCE  TEXT. TWO. COUNT  ON  DRIVE  tfS'); 

WRITELN; 

WK1TELN('3.  SOURCE  INTRO. COUNT  ON  DRIVE  tf5'); 

WRITELN; 

WRITELN('A.  SOURCE  POINT. ONE. COUNT  ON  DRIVE  i»5'); 

WRITELN; 

WRITELNC'S.  OTHER'); 

WRITELN ; 

WRITELU('6.  lUiTURN  TO  MAIN  MENU'); 

G01-OXY(20,5); 
iu:adln(which); 

COTOXY(42,A); 

UNTIL  WHICH  IN  II..61; 

CASE  WHICH  OF 

1 :  SOU  RC  E :  =» '  P  5 :  TEXT .  ONE .  COUNT ' ; 

2 ; SOURCE P  S : TEXT .  TVO . COUNT ' ; 

3: SOURCE: «'e  3 : INTRO. COUNT' ; 

4 ; SOURCE : » ' 5 ; PO INT. ONE . COUNT ' ; 

5: BEGIN 
EiUVSE; 
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G0T0XY(0,6); 

WRITELNC' ENTER  SOURCE  DRIVE  NUMBER  AND  ') 
WRITELN('FILE  NAME— >'); 

GOTOXY(12,7); 

READLNC SOURCE); 

GOTOXY(42,2); 

END; 

.  6: BEGIN 

WHICH: =0;  (*  REMOVE  TO  EXIT  PROGRAM  *) 

EXIT (CHECK); 

END; 

END; 

END;  (*  END  BREAKUP  *) 

BEGIN  (*  BEGIN  MAIN  CHECK  *) 

BREAKUP; 

ERASE; 

LINES(2); 

WRITELN(' SHOULD  I  CREATE  A  NEW  FILE?  Y/N'); 
GOTOXY(31,2); 

READ ( ANSWER) ; 

GOTOXY(42,5); 

IF  ANSWER='Y'  THEN 
BEGIN 

REWRITE(H, SOURCE); 

SEEK(H,0); 

WRITELN; 

WRITELNC 'ENTER  THE  NEW  VALUE— >'); 
GOTOXY(22,6); 

REA0LN(U"); 

GOTOXY(42,5); 

PUT(H); 

END 

ELSE 

BEGIN 

ERASE; 

RESET (U, SOURCE); 

SEEK(H,0); 

GET(U); 

WRITELNC 'THE  VALUE  IS  '.H**); 

L1NES(2); 

WRITEC' SHOULD  I  CHANGE  THE  VALUE?  Y/N'); 
GOTOXYC3l,3); 

READC ANSWER); 

GOTOXY(42,3); 

IF  <\NSWEK«'Y'  THEN 
BEGIN 
L1NES(2); 

UKITEC' ENTER  THE  NEW  VALUE— >'); 
GOTOXY(22,5); 

READLN(ir); 

GOTOXY(42,6); 

SEEK(H,0); 

PUTCH); 

END; 

END; 

ERASE ; 
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WHICH:  =0;  (*  WHICH  ALSO  SETS  RETURN  TO  MENU  *) 
CLOSE (H, LOCK); 

END;(*END  CHECK*) 


SEGMENT  PROCEDURE  TRANSFER; 


BEGIN. (*  MAIN  *) 

REPEAT 

ERASE; 

WRITELN; 

WRITELN('  TRANSFER  MAIN  MENU'); 

LINES(2); 

WRITELNC' ENTER  YOUR  CHOICE— >'); 

LINES(2); 

WRITELNC '1.  MOVE  A  FORMATTED  FILE  TO  A  TEXT  FILE') 


WRITELN; 
WRITELNC '2. 
WRITELN; 
WRITELNC '3. 
VkIIKuI-j, 
WRITELNC 'A. 
WRITELN; 
WRITELNC '5. 
WRITELN; 
WRITELNC '6. 
WRITELN ; 
WRITELNC '7. 


MOVE  A  TEXT  FILE  TO  A  FORMATTED  FILE') 
MOVE  POINT.ONE  TO  A  TEXT  FILE'); 

HOVE  A  TEXT  FILE  TO  POINT.ONE  '); 
REVIEW  FILES  IN  FORMATTED  FORM'); 

CHECK  COUNTER  FILE'); 

EXIT  PROGRAM'); 


GOTOXYC20,A); 
READLNC WHICH); 
GOTOXYCA2,2); 


CASE  WHICH  OF 


l;TRANSONE; 

2: MOVE RONE; 

3:  TRANS  WO; 

A:MOVERWO; 

5: FILL; 

6 '.CHECK; 

7:BEGIN 
ERi\SE ; 

EXITCTRANSFEU) ; 

END; 

END; 

Uin'lL  WHICH  -  7;  C*  LOOP  UNTIL  CORRECT  *) 
END; 


|M 

1 

i 


$ 

0 


SEGMENT  PROCEDURE  STRUCTURE; 

BEGIN 

REPEAT 

FIRST; 

I?  NOT  LEAVE  THEN 
BEGIN 
REPEAT 
ERASE; 

WRITELN(OUT); 

WRITELNCOUT/ RECORD  NUMBER: 

WRITELtKOUT); 

IF  NOT  LIST  THEN 
BEGIN 

WRITEC' PRESS  RETURN  TO  CONTINUE'); 
READLN; 

END; 

GET(F); 

IF  EVERY  THEN 
BEGIN 

ORIGIN ;=1; 

EXTENT: =8; 

END 

ELSE 

BEGIN 

ORIGIN ;=VALUE; 

EXTENT: -VALUE; 

END; 

FOR  COUNTER: -ORIGIN  TO  EXTENT  DO 
BEGIN 
SECOND; 

END; 

SEEK(F,H*); 

PUT(F); 

IF  (NOT  NEW)  AND  (NOT  ADD)  TliEN  ANSUER:-'N 
ELSE 
BEGIN 
WRITELN; 

WRlTE('FlNlSlUiD?  '); 

RE(\DLN(  RESPONSE); 

ERi\SE; 

END; 

UNTIL  (RESPONSE-'Y')  OR  (ll‘-STOP); 

IF  NEW  OR  ADD  TiiEN 
BEGIN 

SEEK(H,0); 

PUT(U); 

END; 

CLOSE (F, LOCK); 

CLOSE (H, LOCK); 

CLOSE(OUT); 

END; 

UNTIL  COUNT-7; 

END; 


SEGMENT  PROCEDURE  SECOND; 

PROCEDURE  DUIIMI; 

BEGIN 

WITH  F“  DO 
BEGIN 

FOR  I;=l  TO  5  DO 
BEGIN 

SEQ1IANY[I]:=1; 

FEEDMANY[Il;=l; 

FEEDUHEREtI]:=l, 

NEXT[I]:=1; 

DONE[I];=FALSE; 

FOR  J;=l  TO  2  DO 
BEGIN 

SEQ2[I,J]:='l'; 

SEQ3[I,Jl:='l'; 

END; 

FOR  J:=3  TO  4  DO 
BEGIN 

SEg3lI,Jl:='l'; 

END; 

END; 

END; 

END; 

PROCEDURE  STARTA; 

BEGIvN 

ERASE; 

CHANGE: -TRUE; 

IF  LIST  THEN  WRITELN(OUT); 

END; 

PROCEDURE  EH; 

BEGIN 

REjVDlii(RE8PONSE); 

IF  RESPONSE-' Y'  THEN  FEEDBACK; -TRUE 
ELSE  FEEDBACK: -FALSE; 

END; 

PROCEDUlUi;  CILXNGEIT; 

BEGIN 

WRITELN(OUT); 

IF  LIST  THEN  CHANGE :-Fi\LSE 
ELSE 
BEGIN 

UKITE('MiUai  CILVNGES  7  '); 

EH; 

CHi\NGE; -FEEDBACK; 

IF  FEEDBACK  THEN  ERASE; 

END; 

END; 

PROCEDURE  UUICU; 

BEGIN 

IF  FEEDBACK  THEN  WRiTELN(OUT, '  TRUE  ') 
ELSE  WKITELN(OUT,'  F<\LSE  '); 

END; 


IF  KIO  THEN  WRITELN(OUT,I/  '  ,ANSWERS[I]) 
ELSE  WRITELN(OUT,I/  '.ANSWERS [I]); 

END; 

WRITELN(OUT); 

IF  LIST  THEN  CHANGE : =FALSE 
ELSE 
BEGIN 

WRITE('IJAKE  CHANGES  ?  '); 

EH; 

WIPE; 

CHANGE ;*FEEDBACK; 

END; 

IF  CHANGE  THEN 
BEGIN 

WRITE(' ENTER  LINE  NUMBER  '); 

READIiJ(I); 

WIPE; 

WRITELN( '  ENTER  CORRECT  INFORllATION ' )  ; 

READLN (ANSWERS [I]); 

ERASE; 

END 

ELSE 

BEGIN 

FINISHED; =TRUE; 

WRITELN(OUT); 

END; 

UNTIL  FINISHED; 

END; 

D; 

GIN 

WITH  F"  DO 
BEGIN 
STARTA; 

IF  NEW  OR  ADD  THEN 
BEGIN 

FOR  I;-l  TO  20  DO 
BEGIN 

ANSWERS[I];='  '; 

END; 

END 

ELSE 

BEGIN 

IF  LOOK  THEN  SUB; 

IF  CHANGE  THEN 
BEGIN 

WRITELNC' ENTER  A  SCREEN  FULL  OF  ANSWERS') 
FOR  I;=l  TO  20  DO 
BEGIN 

IF  KIO  THEN  WRITELNC  I,'  ') 

ELSE  WRITELNC I,'  '); 

END; 

FOR  I:=l  TO  20  DO 
BEGIN 

G0T0XY(3,I): 

READLNCANSVu.RSlIJ); 

END; 

STARTA: 


SUB;  _  ..  ....  ' 

END; 

END; 

END; 

END; 

PROCEDURE  THREE; 

VAR  ORIGIN,  FAR: INTEGER;  .. 

PROCEDURE  SUB; 

BEGIN 
WITH  F*'  DO 
BEGIN 

FOR  I:=l  TO  5  DO 
BEGIN 

WRITELN(OUT) ; 

WRITELNC OUT, 'ANSWER 
FOR  J;«l  TO  2  DO 
BEGIN 

WRITE(OUT,PROHPT[ J] ) ; 

WRITELN ( 0  UT , PO  S ITIONS 1 1 , J ] ) ; 

END; 

END; 

FOR  I;=l  TO  20  DO 
BEGIN 

GOTOXY(19,I); 

IF  KIO  THEN  WRITEd,'  '  ,ANSWERS[I] ) 

ELSE  WRITEd,'  ', ANSWERS [IJ ) > 

END; 

CHANGEIT; 

END; 

END; 

BEGIN 

WITH  F*  DO 
BEGIN 
STARTA; 

IF  NEW  OR  ADD  THEN 
BEGIN 

FOR  I;-l  TO  5  DO 
BEGIN 

FOR  J;»l  TO  2  DO 
BEGIN 

POSITIONS(I,J);-AO; 

END; 

END; 

END 

ELSE 

BEGIN 

IF  LOOK  THEN  SUB; 

IF  CHANGE  THEN 
BEGIN 
REPEAT 
ERASE; 

WRITELN ('ENTER  THE  DEFINING  LINE  NUMBERS'); 
WRITELN; 

WR1TLLN('F0R  THE  ANSWERS'); 

WRITELN; 
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WRITELNC'DO*  YOU  WISH  TO  ENTER  LINE  NUMBERS'); 
WRITELN; 

WRITEC'FOR  ALL  QUESTIONS?  '); 

EH; 

IF  FEEDBACK  THEN  ANSWER: ='Y' 

ELSE  ANSWER :='N'; 

IF  ANSWER=^'Y'  THEN 
BEGIN 

ORIGIN ;=1; 

FAR:=5; 

END 

ELSE 

BEGIN 

GOTOXY(0,9); 

WRITELN ('ENTER  START  NUMBER  '); 

WRITELN; 

WRITEC 'ENTER  STOP  NUMBER  '); 
GOTOXY(19,9); 

READLN (ORIGIN); 

GOTOXY(19,ll); 

READLN (FAR); 

END; 

ERASE; 

GOTOXY(0,2); 

WRITE(' ENTER  LINE  NUMBERS'); 

WRITELN; 

WRITE('FOR  ANSWERS'); 

GOTOXY(0,6); 

WRITE( 'ANSWER  NUMBER  '); 

GOTOXY(0,8); 

WRITE(PROMPT[l]); 

GOTOXY(0,10); 

WRITE(PR0MPT[2l); 

FOR  I:-l  TO  20  DO 
BEGIN 

G0T0XY(19  !)• 

IF  KIO  THEN* WRITEC I,'  ' ,ANSWERS[I] ) 

ELSE  WRITEC I, '  ' .ANSWERS [I] ); 

END; 

FOR  I: -ORIGIN  TO  FAR  DO 
BEGIN 

G0T0XY(IA,6); 

WRITEC I); 

GOTOXY(14,8); 

WRITEC'  '); 

GOTOXY(IA,10); 

WRITEC'  '); 

FOR  J:-l  TO  2  DO 
BEGIN 

GOTOXY(1A,(6+(2*J))); 

READLN(POSITIONS[I,Jl); 

END; 

END; 

STARTA; 

SUB; 

UNTIL  NOT  CHANGE; 

END; 

END; 
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PROCEDURE  FOUR; 


PROCEDURE  SUB;  /  -  K  - 

BEGIN  :  •  ■■  - 

WITH  F"  DO  .  V-.  -.  . 

BEGIN  ■ 

G0TOXY(0,2); 

WRITELN(OUT, 'CORRECT  CHOICE  =  '.CORRECT); 
CHANGEIT; 

END; 

END; 

BEGIN 

WITH  F"  DO 
BEGIN 
SIARTA; 

IF  LOOK  THEN  SUB; 

IF  CHANGE  THEN 
BEGIN 
REPEAT 
GOTOXY(0,2); 

WRITE( 'ENTER  THE  CORRECT  CHOICE  NUMBER  ') 
READLNC CORRECT); 

STARTA; 

SUB; 

UNTIL  NOT  CHANGE; 

END; 

END; 

END; 

PROCEDURE  FIVE; 

PROCEDURE  SUB; 

BEGIN 
WITH  F"  DO 
BEGIN 

GOTOXY(0,2); 

WRITE( OUT, 'TEXT  BEFORE  SEQUENCE  ONE  (PED)  =  '); 
FEEDBACK;-TEXTll,l]; 

WHICH; 

WRITELN; 

WRITEC OUT, 'TEXT  BEFORE  SEQUENCE  ONE  (EX;  =  '); 
FEEDBACK:=TEXT[2,1]; 

WHICH; 

WRITELN; 

WRITE( OUT, 'TEXT  AFTER  SEQUENCE  ONE  (PED)  -  '); 
FEEDB ACK; -TEXT [ 1,2 1; 

WHICH; 

WRITELN; 

WRITE(OUT,'TEXT  AFTER  SEQUENCE  ONE  (EX)  «  '); 
FEEDBACK: -TEXT[ 2,2]; 

WHICH; 

WRITELN; 

WRITE (OUT, 'PLAY  SEQUENCE  ONE  (PED)  =  '); 

FEEDBACK:-PLAYtl,l]; 
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WHICH; 

WRITELN; 

WRITE(OUT/PLAY  SEQUENCE  ONE  (EX)  =  '); 

FEEDBACK:=PLAY[2,11; 

WHICH; 

WRITELN; 

CHANGEIT; 

END; 


BEGIN 

WITH  F'‘  DO 
BEGIN 
SIAF.TA; 

IF  LOOK  THEN  SUB; 

IF  CHANGE  THEN 
BEGIN 
REPFJ^T 

GOTOXY(0,2); 

WRITELN ('ANSWER  WITH  A  Y<CR>  OR  A  <CR>  '); 
GOTOXY(0,5); 

WRITELN('TEXT  BEFORE  SEQUENCE  ONE?  (PED)  ') 
WRITELN; 

WRITELN('TEXT  BEFORE  SEQUENCE  ONE?  (EX)  ') 
WRITELN; 

WRITELN('TEXT  FOLLOWING  SEQUENCE?  (PED)  ') 
WRITELN; 

WRITELN(' TEXT  FOLLOWING  SEQUENCE?  (EX)  ') 
WRITELN; 

WRITELN ('PLAY  A  SEQUENCE?  (PED)') 

WRITELN; 

WR1TELN('PLAY  A  SEQUENCE?  (EX)  ') 

GOTOXY(34,5); 

EH; 

TEXT[l,l];-FEEDBACK; 

GOTOXY(3A,7); 

EH; 

TEXT[2,1];=FEEDBACK; 

GOTOXY(34,9); 

EH; 

TEXT[1,2]:=FEEDBACK; 

GOTOXY(34,ll); 

EH; 

TEXT[2,2]:=FEEDBACK; 

GOTOXY(34,13); 

EH; 

PLAYll,l]!=fEEUBACK; 

GOTOXY(34,i5); 

EH; 

PLAY[2,1];-FEEDBACK; 

SIARTA; 

SUB; 

UNTIL  NOT  CHANGE; 

END; 

END; 

END; 


PROCEDURE  SIX; 
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PROCEDURE  SUB; 

BEGIN 

WITH  F"  DO.  .  . 

.  BEGIN 

G0T0XY(0,2); 

WRIIELN(OUT, 'NUMBER  OF  PAGES  PRIOR  =  ' , TEXTMANY [ 1 ] ) 
...:.,WRITELN; 

WRITELN(OUT,'NWIBER  OF  PAGES  AFTER  »  ' ,TEXTMANY[2] ) 
WRITELN; 

WRITELN( OUT, 'THEY  START  AT  LOCATION  ' ,TEXTWHERE) ; 
CHANGEIT; 

END; 

END; 

BEGIN 

WITH  F"  DO 
BEGIN 
STARTA; 

IF  LOOK  THEN  SUB; 

IF  CHANGE  THEN 
BEGIN 
REPEAT 

GOTOXY(0,2); 

WRITELN ('NUMBER  OF  PAGES  PRIOR?  '); 

WRITELN; 

WRITELN ('NUMBER  OF  PAGES  FOLLOWING?  '); 
WRITELN; 

WRITELN(' WHERE  ON  DISK  DOES  IT  START?  '); 
GOTOXY(32,2); 

READm(TEXTMANY(ll); 

GOTOXY(32,4); 

READLN(TEXTMANYl2]); 

GOTOXY(32,6)} 

EEADIJN(TEXTWHERE) ; 

STARTA; 

SUB; 

UNTIL  NOT  CHANGE; 

END; 

END; 

END; 


PROCEDURE  SEVEN; 

PROCEDURE  SUB; 

BEGIN 

WITH  F*  DO 
BEGIN 

GOTOXY(0,2); 

WRITE( OUT, 'PICK  UP  A  RESPONSE  ■  '); 

FEEDBACK: -RESPONSE ; 

WHICH; 

WRITELN; 

WRITE (OUT, 'PLAY  SEQUENCE  THREE  (PED)  -  '); 
FEEDBACK: -PLAY [J,21; 

WHICH; 
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WRITELN; 

WRITE(.OUT,'PLAY  SEQUENCE  THREE  (EX)  =/)} 
FEEDBACK; =PLAY[2, 2]; 

WHICH; 

WRITELN; 

CHANGEIT; 

END; 

END; 

BEGIN 

WITH  F*  DO 
BEGIN 
STARTA; 

IF  NEW  OR  ADD  THEN 
BEGIN 

RESPONSE; “TRUE; 

PLAY[1,2]:=TRUE; 

PLAY[2,2];='TRUE; 

END 

ELSE 

BEGIN 

IF  LOOK  THEN  SUB; 

IF  CHANGE  THEN 
BEGIN 
REPEAT 

GOTOXY(0,2); 

WRITELN(' ANSWER  WITH  A  Y<CR>  OR  A  <CR>') 
GOTOXY(0,5); 

WRITELN('IS  THERE  A  RESPONSE?  '); 

WRITELN; 

WRITELN ('PLAY  SEQUENCE  THREE?  (PED)  '); 
WRITELN; 

WRITELN('PLAY  SEQUENCE  THREE?  (EX)  '); 
G0T0XY(30,5); 

EH; 

RESPONSE; -FEEDBACK; 

GOTOXY(30,7); 

EH; 

PLAY [ 1,2 ];-FEEDBACK; 

G0T0XY(30,9); 

EH; 

PLAY[2,2];-FEEDBACK; 

STARTA; 

SUB; 

UNTIL  NOT  CHANGE; 

END; 

END; 

END; 

END; 

PROCEDURE  TITLE; 

BEGIN 

WRITELN; 

WRITELN(OUT, 'ANSWER  ',!); 

WRITELN; 

END; 

PROCEDURE  ONEA; 
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PROCEDURE  SUB; 

BEGIN  ' 

WITH  F''  DO  .  ■ 

BEGIN 

WRITELN(OUT» 'VALUES  FOR  SEQ2'); 

■ WRITELN(OUT); 

,  FOR  J;=l  TO  2  DO 
BEGIN 

WRITE ( 0 UT , PROMPT [ J ]) ; 

■  WRITELN(OUT,SEQ2[I,J]); 

WRITELN(OUT); 

END; 

CHANGEIT; 

IF  FEEDBACK  THEN  TITLE; 

END; 

END; 

BEGIN 

WITH  F''  DO 
BEGIN 
STARTA; 

TITLE; 

IF  LOOK  THEN  SUB; 

IF  CHANGE  THEN 
BEGIN 
REPEAT 
G0TOXY(0,3); 

WRITELN(' ENTER  THE  START  &  STOP  VALUES  FOR  SEQ2') 
WRITELN; 

FOR  J:«l  TO  2  DO 
BEGIN 

WRITELN (PROMPT[Jj); 

WRITELN; 

END; 

GOTOXY(l4,5); 

READLN(SEQ2Ufl]); 

GOTOXY(14,7); 

READLN(SEQ2il,2]); 

STARTA; 

TITLE; 

SUB; 

UNTIL  NOT  CHANGE; 

END; 

END; 

END; 

PROCEDURE  TWOA; 

PROCEDURE  SUB; 

BEGIN 

WITH  F"  DO 
BEGIN 

WRITELN(OUT,' VALUES  FOR  SEQ3'); 

WRITELN (OUT); 

FOR  J:=l  TO  2  DO 
BEGIN 

WRITE(OUT,PROMPTlJ]); 
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WRITELN ( OUT , SEQ3 [ I , J 1 ) ; 

WRITELN(OUT); 

END; 

WRITELN (OUT); 

FOR  J:=»l  TO  2  DO 
BEGIN 

WRITR(OUT,PROMPT[J] ) ; 

WRITELN(OUT, SEQ3 [ I , ( J+2 ) ] ) ; 

WRITELN (OUT); 

END; 

WRITELN (OUT); 

WRITELN(OUT» 'THERE  ARE  ' ,SEQMANY[I] , '  SEQUENCES'); 
CTiANGEIT; 

IF  FEEDBACK  THEN  TITLE; 

END; 

END; 

BEGIN 

WITH  F''  DO 
BEGIN 
STARTA; 

TITLE; 

IF  LOOK  THEN  SUB; 

IF  CHANGE  THEN 
BEGIN 
REPEAT 
GOT0XY(0,3); 

WRITELN ('ENTER  THE  FIRST  SET  OF'); 

WRITELN; 

WRITELN(' START  &  STOP  VALUES  FOR  SEQ3'); 
WRITELN; 

FOR  J;-l  TO  2  DO 
BEGIN 

WRITELN(PROMPTlJl); 

WRITELN; 

END; 

WRITELN; 

WRITELN ('ENTER  THE  SECOND  SET  OF  VALUES'); 
WRITELN; 

FOR  Js-1  TO  2  DO 
BEGIN 

WRITELN(PROMPT[Jj); 

WRITELN; 

END; 

WRITELN; 

WRITE(' ENTER  THE  WUHBER  OF  SEQUENCES  '); 

FOR  J:-l  TO  A  00 
BEGIN 
CASE  J  OF 

llG0T0XY(lA,7); 

2:G0T0XY(1A,9); 

3;GOTOXY(1A,:A); 

AsGOTOXY(lA,16); 

ENDr, 

READLN(SEQ3[I,J]); 

END; 

GOTOXY(32,l9); 

READLN(SEQHANYlI]): 
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TITLE;  - 
■SUB; 

UNTIL  NOT  CHANGE; 

END; 

END;^•^.^ 

END;  ,  -  ' 

PROCEDURE  TUREEA; 

PROCEDURE  SUB;  ' 

BEGIN 

WITH  F*  DO 
BEGIN 

WRITELNC OUT, 'THERE  APj:  ' ,FEEDMANY[I] , '  PAGES  OF  EXPLANATION') 
WRITELN; 

WRITELNC OUT, 'THEY  START  AT  LOCATION  ' ,FEEDWHERE[I] ); 

CHANGE IT; 

IF  FEEDBACK  THEN  TITLE; 

END; 

END; 

BEGIN 

WITH  F*  DO 
BEGIN 
STARTA; 

TITLE; 

IF  LOOK  THEN  SUB; 

IF  CHANGE  THEN 
BEGIN 
REPEAT 
GOTOXY(0,3); 

WRITELN('HOW  HANY  PAGES  OP  EXPUNATION?  '); 

WRITELN ; 

WRITELN ('WHERE  ON  THIS  DISK  DOES  IT  START?  '); 
GOTOXY(35,3); 

READLN(FEEDMANYlIJ); 

GOTOXY(35,5); 

READLN ( FEEDUHEHE [ I ] ) ; 

STARTA; 

TITLE; 

SUB; 

UNTIL  NOT  CHANGE; 

END; 

END; 

END; 

PROCEDURE  FOURA; 

PROCEDURE  SUB; 

BEGIN 

WITH  F*  DO 
BEGIN 

WRITELN(OUT,'THK  NEXT  JUNCTION  POINT  IS  AT  RECORD  ',NEXT[I]); 
WRITELN ; 

WRITE(OUT,'THIS  IS  AN  END  POINT;  '); 

FEEDBACK:-DONE[I]; 


CHANGEIT; 

IF  FEEDBACK  THEN  TITLE; 

END; 

END; 

BEGIN 

WITH  F"  DO 
BEGIN 
STARTA; 

TITLE; 

IF  LOOK  THEN  SUB; 

IF  CHANGE  THEN 
BEGIN 
REPEAT 

GOTOXY(0,3); 

WRITELNC' ENTER  THE  NEXT  JUNCTION  POINT  '); 

WRITELN; 

WRITELNC 'IS  THIS  AN  END  POINT?  '); 

GOTOXY(32,3); 

READLN(NEXT[I]); 

GOTOXY(32,5); 

EH; 

DONE[I]:=>FEEDBACK; 

STARTA; 

TITLE; 

SUB; 

UNTIL  NOT  CHANGE; 

END; 

END; 

END; 

PROCEDURE  GIZMO(OUNMY,MIN,MAX: INTEGER); 

BEGIN 

IF  NOT  (DUMMY  IN  (MIN, .MAX))  THEN 
BEGIN 
WIPE; 

WRITELNC 'PLEASE  ENTER  A  NUMBER  BETWEEN  ',MIN,'  AND  ',MAX); 
WRITELN; 

WRITEC' PRESS  <CR>  TO  CONTINUE'); 

READLN; 

WIPE; 

WIPE; 

WIPE; 

END; 

END; 

PROCEDURE  EIGHT; 

VAR  ORIGIN,  ORIGINl,  EXTENT,  EXTENTl,  COUNT: INTEGER; 

BEGIN 

ORIGIN;-!; 

EXTENT: -5; 

ORIGINl :-!; 

EXTENTl: -4; 

IF  (NOT  NEW)  AND  (NOT  ADD)  THEN 
BEGIN 
ERASE; 
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G0TQXY(0,2); 

WRITEC 'GO  THROUGH  ALL  ANSWERS?  '); 

EH; 

WRITELN; 

IF  NOT  FEEDBACK  THEN 
BEGIN 
REPEAT 

WRITEC' ENTER  START  ANSWER  '); 
READLN(ORIGIN); 

GIZMO(ORIGIN,1,5); 

UNTIL  ORIGIN  IN  [1..5]; 

WRITELN ; 

REPEAT 

WRITE(' ENTER  STOP  NUMBER  '); 

READl^C EXTENT); 
GIZMO(EXTENT>ORIGIN,5); 

UNTIL  EXTENT  IN  [ORIGIN.. 5]; 

END; 

WRITELN ; 

WRITEC 'GO  THROUGH  ALL  PROCEDURES?  '); 

EH; 

IF  NOT  FEEDBACK  THEN 
BEGIN 
WRITELN; 

WRITELNC'l.  SEQUENCE  TWO'); 

WRITELN; 

WRITELN('2.  SEQUENCE  THREE'); 

WRITELN; 

WRITELN('3.  PAGES  OF  EXPUNATION ' ) ; 
WRITELN; 

WRITELN('4.  NEXT  JUNCTION  POINT'); 
WRITELN; 

REPEAT 

WRITEC 'ENTER  THE  PROCEDURE  NUMBER  ') 
REAULNCORIGINl); 

GIZMOCORIGINl,l,4); 

UNTIL  ORIGINl  IN 
EXTENT! :-ORIGlNl; 

ERASE; 

END; 

END; 

FOR  I: -ORIGIN  TO  EXTENT  DO 
BEGIN 

FOR  COUNT: -ORIGIN!  TO  EXTENT!  DO 
BEGIN 

QVSE  COUNT  OF 
!:0NEA; 

ZilVfOiX; 

3:THKEEA; 

4:FOURA; 

END; 

END; 

END; 

END; 

BEGIN 

CASE  COUNTER  OF 
!:ONE; 
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cn  ^  to 


SEQffiNX  ..PROCEDURE  FIRST; 


PROCEDURE  FIND; 

BEGIN 

CASE  COUNT  OF 
1  .-BEGIN 

GETCVAL( RESPONSE); 

IF  RESPONSEO'RUN'  THEN 
BEGIN 

RESPONSE:='KRUNCHED' ; 
SETCVAL(RESPONSE); 

SETCHAIN( ' EXEC/KRUNCH' ) ; 
GOTOXY(42,10); 

WRITELN( 'PLEASE  WAIT,  PROCESSING'); 
POKE(0, -16299); 

EXIT( PROGRAM) ; 

END 

ELSE  NEW:=TRUE; 

END; 

2:LOOK;=TRUE; 

3; BEGIN 

LOOK; -TRUE; 

SPECIFIC ;»TRUE; 

END; 

4:  BEGIN 

LOOK: -TRUE; 

LIST; -TRUE; 

END; 

5:BEG.tN 

LOOK; -TRUE; 

LIST; -TRUE; 

SPECIFIC; -TRUE; 

END;  . 

6:2iEOlN 

GE'ICVAL(RESPONSE) ; 

IF  RESPONSEO'RUN'  THEN 
BEGIN 

RESPONSE ;»'U0VED'; 
SETCVAi.(RES!»»)NSE); 

S£tViLMN( '  EXEC/HOVE ' ) ; 
ajAOXY(42,iU); 

U'RtTHUK' PLEASE  WAIT,  PROCESSING') 
P0KE<0,- 16299); 

ExrrtPUOGiLUi) ; 

END 

ELSE  ADD; -TRUE; 

END; 

7: BEGIN 

RESPONSE;-"; 

SETCVAL( RESPONSE) ; 

LEAVE; -TRUE: 


PROCEDURE  INIT; 

BEGIN 

GETCVALC RESPONSE); 

IF  RESPONSE='KRUNCUED'  THEN 
BEGIN 

NEW:*TRUE; 

ADD:=FALSE; 

COUNT; =1; 

END 

ELSE 

BEGIN 

IF  RESPONSE=' MOVED'  THEN 
BEGIN 

NEW;=FALSE; 

ADD:=TRUE; 

COUNT; =6; 

END 

ELSE 

BEGIN 

NEW; “FALSE; 

ADD; “FALSE; 

COUNT ;=0; 

END 

END; 

LOOK; “FALSE; 

EVERY; “TRUE; 

LEAVE; “FALSE; 

LIST;“FALSE; 

SPECIFIC; “FALSE; 

END; 

PROCEDURE  CHECK; 

BEGIN 

IF  COUNT-0  THEN 
BEGIN 
WIPE; 

WRITELNC'POINT.ONE  ALREADY  EXISTS'); 
WRITELN; 

WR1TE(' PRESS  <CR>  TO  CONTINUE'); 
lUEADLN; 

END; 

IF  lORESULTOO  THEN 
BEGIN 
(;0UNT.«0; 

WIPE; 

URITELNC'ONE  OF  YOUR  FILES  DOES  NOT  EXIST') 
WRITELN; 

WRITELN ('PRESS  <CR>  TO  CONTINUE'); 

READLN; 

END; 

END; 


PROCEDURE  SETUP; 


PR0MPT[1]:=' START  VALUE  '; 

PROMPT [ 2 i ; = ' STOP  VALUE  ' ; 

REPEAT 

IWIT; 

-ERASE; 

WRITELN(' STRUCTURE  MAIN  MENU  -  EACH  ENTRY  MUST  "); 

WRITELN; 

.  WRITELN(‘IiE  FOLLOWED  BY  A  CARRIAGE  RETURN  <CR>'); 
GOTOXY(0,5); 

WRITELNC'l.  CREATE  A  NEW  SET  OF  FILES'); 

WRITELN; 

WRITEI.N('2.  LOOK  AT  ALL  OF  THE  DATA'); 

WRITELN; 

WRITELN('3.  LOOK  AT  SPECIFIC  RECORDS'); 

WRITELN; 

WRITELNr^.  PRINT  OUT  ALL  OF  THE  DATA'); 

WRITEIJJ; 

WRITELN('5.  PRINT  OUT  SPECIFIC  RECORDS'); 

WRITELN; 

WRITELN('6.  ADD  TO  THE  FILE'); 

WRITELN; 

WRITELN('7.  EXIT  THE  PROGRAI-I'); 

LINES(2); 

GETCVAL(RESPONSE); 

IF  (RESPONSE='KRUNCHED' )  OR  ( RESPONSE*^' MOVED '  )  THEN 
BEGIN 

RESPONSE ;=' RUN'; 

SETCVAL(RESPONSE); 

END 

ELSE 

BEGIN 

REPEAT 

WRITE(' ENTER  THE  NUMBER  OF  YOUR  CHOICE  '); 

READLN( COUNT); 

WIPE; 

IF  NOT  (COUNT  IN  [I..?])  THEN 
BEGIN 

WRITELN  ('PLEASE  ENTER  A  NIRIBER  BETVJEEN  1  AND  7') 
WRITELN ; 

WRITE( 'PRESS  <CR>  TO  CONTINUE'); 

READLN; 

WIPE; 

WIPE; 

WIPE; 

END; 

UNTIL  COUNT  IN  11..7]; 

FIND; 

END; 

IF  LEAVE  THEN  EXIT(SETUP); 

WRITELN ('FILES  ARE  BEING  OPENED. ..PLEASE  WAIT'); 

IF  NEW  THEN 
BEGIN 
H":“0; 

KESET(H,'(?5;POINT.ONE'); 

IF  lORESULTOO  THEN 
BEGIN 

REWRITEdl, 'tf5:POINT.ONE. COUNT' ); 

PUT(H); 
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CLOSE(H,LOCK); 

RESET (H 5 : PO INT . ONE . COUNT' ) ; 

SEEK(H,0); 

REWRITECF , ' #5 : PO INI. ONE ' ) ; 

END 

ELSE 

BEGIN 

CLOSE(H,LOCK); 

COUNT ;“0; 

END; 

END 

ELSE 

BEGIN 

RESET(H,')'/5:POINT.ONE. COUNT'); 

IF  IORESULT=0  THEN  RESET(F, '#5:POINT.ONE' ) ; 

END; 

CHECK; 

UNTIL  COUNTOO; 

END; 

PROCEDURE  REGDSET; 

BEGIN 

WIPE; 

IF  LIST  THEN  REWRITE(OUT, 'PRINTER: ' ) 

ELSE  REWRITE(OUT, 'CONSOLE:'); 

IF  NOT  NEW  THEN 
BEGIN 

SEEK(H,0); 

GET(H); 

IF  (LOOK)  AND  (NOT  SPECIFIC)  THEN 
BEGIN 

ST0P:=H''; 

H‘':=>0; 

END 

ELSE 

BEGIN 

IF  SPECIFIC  THEN 
BEGIN 
REPEAT 

WRITE(' ENTER  START  RECORD  NUMBER  '); 

READLN(S'IART); 

WIPE; 

IF  NOT  (START  IN  I0..(ir-1)])  THEN 
BEGIN 

WRITELN('THiS  RECORD  DOES  NOT  EXIST. .RE-ENTER' ) 
WRITELN; 

WRITE('HIT  <CR>  TO  CONTINUE'); 

READLN; 

WIPE; 

WIPE; 

WIPE; 

END; 

UNTIL  START  IN  (0..(H‘-l)]; 

REPEAT 

WRITEt,' ENTER  STOP  RECORD  NUMBER  '); 

REi\DLN(STOP); 

WIPE  • 

IF  NOT  (STOP  IN  [START. .(U“-l)J)  THEN 


WRITE(' please  enter  A  NUMBER  BETWEEN  '.START); 

WRITELHC'  AND 

WRITELN; 

WRITE('HIT  <CR>  TO  CONTINUE'); 

READI2J; 

WIPE; 

-WIPE; 

WIPE; 

END; 

UNTIL  STOP  IN  [START..(H''-1)]; 

STOP:=STOP+l; 

H'‘:=START; 

END; 

END; 

SEEK(F,r); 

END; 

IF  (NOT  NEW)  AND  (NOT  ADD)  THEN 
BEGIN 

WRITE('SHOULD  I  EXECUTE  EVERY  PROCEDURE?  ’); 
READLN(RESPONSE); 

IF  RESPONSEO'Y'  THEN 
BEGIN 
ERASE; 

WRITELN('l.  SEQUENCE  ONE  INFORl'lATION ' ) ; 

WRITELN; 

WRITELN('2.  TEXT  OF  CHOICES'); 

WRITELN; 

WRITELN('3.  POSITION  OF  CHOICES'); 

WRITELN ; 

WRITELN('4.  CORRECT  CHOICE'); 

WRITELN; 

WRITELN('5.  TEXT  BEFORE/ AFTER  MOTION  SEQUENCE'); 

WRITELN; 

WRITELN('6.  NUt'lBER  OF  PAGES  OF  TEXT'); 

WRITELN; 

WRITELN('7,  PICK  UP  A  RESPONSE'); 

WRITELN; 

WRITELN('8.  INFORMATION  PERTAINING  TO  ANSWERS'); 
LINES(2); 

REPEAT 

WRITE(' ENTER  THE  PROCEDURE  NUMBER  '); 

READ LN( VALUE); 

WIPE; 

IF  NOT  (VALUE  IN  [1..81)  THEN 
BEGIN 

WRrrELN(' PLEASE  ENTER  A  VALUE  BETA^EEN  i  AND  S'); 
WRITELN; 

WRITE('PRESS  <CU>  TO  CONTINUE'); 

KEADLN; 

WIPE; 

WIPE; 

WIPE; 

END; 

UNTIL  VALUE  IN  II..8]; 

EVERY:«FALSEi 


PROGRAM  RSET; 


(*  THIS  PROGRAM  RESETS  THE  COUNT  FIELD  IN  POINT. Ol'JE  AND  DELETES  *) 
(*  ALL  STUDENT  FILES.  *) 

USES  LIGHTPEN,WORK; 

(*  F  IS  THE  MAIN  POINTER  FILE  *) 

VAR  F;FILE  OF  RECORD 

SEQltPACKED  ARRAY[1. .2]0F  STRING15]; 

SEQ2;PACKED  ARRAY[1..5,  1..2]OF  STRING[5]; 

SEQ3;PACKED  ARRAY[1..5,  1..410F  STRING[5]; 

ANSWERS; PACKED  ARRAY [1.. 20] OF  STRING [40]; 

POSITIONS ; ARRAY [ 1 . . 5 , 1 . . 2 ] OF  INTEGER; 

SEQMANY: PACKED  ARRAY[ 1 . .5]0F  INTEGER; 

FEEDHANY: PACKED  ARRAY[1. .5]OF  INTEGER; 

FEEDWHERE; PACKED  ARRAY[1. .5]OF  INTEGER; 

CORRECT: INTEGER; 

TEXTMANY: PACKED  ARKAY[ i. .2]0F  INTEGER; 

TEXTWHERE: INTEGER; 

RESPONSE; BOOLEAN; 

NEXT;PACKED  ARRAY[ 1 . .5]0F  INTEGER; 

DONE;PACKED  ARRAY[1..5]0F  BOOLEAN; 

TEXT:PACKED  ARRAY[ 1 . .2, 1* •210F  BOOLEAN; 

PLAY;PACKED  ARRAY[1 . .2, 1. .2]0F  BOOLEAN; 

END; 

G;FILE  OF  RECORD 
NUtlUER:  INTEGER; 

CHOSEN;PACKED  ARRAY(1. .lOjOF  INTEGER; 

TIMERS ; PACKED  ARRAY( I . . lOjOF  INTEGER; 

KEEP: PACKED  ARRAYli..lOlOF  BOOLEAN; 

END; 

I,  J: INTEGER; 

M;FILE  OF  PACKED  ARRAYll..l]OF  STRING(14]; 

NAME: STRING; 

ANSWER: CHAR; 

BEGIN 

ERASE; 

G0T0XY(0,14); 

RESET(F,'tf5: POINT. ONE'); 

SEEK(F,0); 

GET(F); 

IF  F*.TEXTMANY121>0  THEN 
BEGIN 

WRITELN('POm'.ONE  »D\S  BEEN  RESET'); 

WRITELN ; 

UR1TELN('AND  THE  FOLLOWING  FILES  DELETED'); 

HNES(2); 

RESET<M,'tf5: STUDENT'); 

SEEK(ll,0); 

FOR  J:»l  TO  F*.TEXT{'D\NVt2l  DO 
BEGIN 
GET(M) ; 

NAllE;-COPY(M''[lj  ,4,11); 

WRITELN(N*\ilE); 

RESET(G,irUl); 
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.aOSE(G,  PURGE); 

END; 

F".TEXTMANY[2];=0; 

SEEK(F,0); 

PUT(F); 

CLOSE(F,LOCK); 

CLOSE(M,LOCK); 

END 

ELSE  WRITELNC' POINT. ONE  IS  ALREADY  RESET') 


(*$s+*) 

PROGRAM  LOOK; 

USES  LIGHTPEN,WORK; 

VAR  F:FILE  OF  RECORD 

SEQ1:PACKED  ARKAY[1..2]0F  STRING[5]; 
SEQ2;PACKED  ARRAY[1..5,  1..2]OF  STRING[5] 
SEQ3:PACKED  ARRAY[1..5,  1..410F  STRING[5] 
ANSWERS: PACKED  ARRAY[1. .20]OF  STRING[40]; 
POS ITIONS : ARRAY [ 1 . . 5 , 1 . . 2 ] OF  INTEGER ; 
SEQMANY: PACKED  ARRAy[ 1. .5]OF  INTEGER; 
FEEDllANY: PACKED  ARRAY[1.  .5]OF  INTEGER; 
FEEDWHERE: PACKED  ASRAY[1. .5]OF  INTEGER; 
CORRECT: INTEGER; 

TEXTIIANY: PACKED  ARRAY[  1.  .2]OF  INTEGER; 
TEX-nWERE:  INTEGER; 

RESPONSE: BOOLEAN; 

NEXT: PACKED  ARRAY [ 1. .5]OF  INTEGER; 

DONE: PACKED  ARRAY[ 1 . .5]OF  BOOLEAN; 

TEXT: PACKED  ARRAYt 1 . .2, 1 . .2]OF  BOOLEAN; 
PLAY: PACKED  ARKAy[i. .2, 1. .2]OF  BOOLEAN; 
END; 

G:FILE  OF  RECORD 
NUMBER: INTEGER; 

CHOSEN: PACKED  ARRAY [1. .10] OF  INTEGER; 
TIUERS:PACKED  AWiAY(l. .lOjOF  INTEGER; 
KEEP;PACKED  ARRAY] 1. .lOjOF  BOOLEAN; 

END; 

M:FILS  OF  PACKED  ARRAY ( 1 1] OF  STRING] 14); 

EXTEJ'iT,  CHOICE,  I,  J,  K,  L:INTEGER; 

STATE: ARRAY]!.. 5 1  OF  STRING; 

ID,  NiVl'tE: STRING; 

OUT: INTERACTIVE; 

PEDAGO: BOOLEAN; 

QUIT,  ANSWER:CHAR; 

PROCEDURE  START; 

BEGIN 

STATE]!  1:=>'G0  BACK  TO  THE  BEGINNING'; 
STATE]2]:=«'GO  BACK  ONE  JUNCTION  POINT'; 

STATE] 3 j REPEAT  IHE  LAST  JUNCTION  POINT'; 
STATE]4]:“'qUIT  THE  PROGRAf-1'; 

STATE]3]:“' IGNORE  THE  HELP  REQUEST'; 

ERASE; 

WRITE] 'USE  niE  PRINTER?  '); 

REiU)(  ANSWER); 

IF  ANSWER“'Y'  THEN  REWRiTE<OUT, 'PRINTER: ' ) 

ELSE  RKWRITE(OUT, 'CONSOLE:'); 

RESET]  F, ' //5 : PU INT. ONE ') ; 

SEEK]F,0); 

GET]F); 

RESET]M,'//5:  STUDENT'); 

SEEK]M,U); 
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PROCEDURE  TIIIEPRINT; 

BEGIN 

ERASE; 

GET(M) ; 

ID:=M''[1]; 

RESET(G,ID); 

SEEK(G,0); 

GET(G); 

PEDAGO:“G'.KEEP[l]; 

■ ID:=C0PY(ID.4,11); 

WRITELN(OUT, 'SERIAL  NUMBER:  ',ID); 

IF  PEDAGO  THEN  WRITELN( OUT, 'PEDAGOGICAL  MODE') 

ELSE  WRITELN(OUT, 'EXPERIENTIAL  MODE'); 

EXTENT; =0'. NUMBER; 

WITH  G"  DO 
BEGIN 

WRITE ( OUT , ' S TART  TIME :  ' , TIMERS [ 1 ] , ' : ' , TIMERS [ 2 ] ) ; 
WRITELN(OUT, ' : ' ,TIMERS(3] ); 

WRITE(OUT,'STOP  TIME:  '  ,TIMERS[4) '  ,TmEKS(5] ); 
WRITELN ( OUT,' :' .TIMERS [6]); 

IF  TIMERS  [llOTIHERS [4]  THEN  TIMERS[5l  :»TIMERSl5]+60; 
TIMERS [ 5 ] : =TIMERS [ 5 ] *60 ; 

TIMERS [ 5 ] : “TIMERS ( 5 ]+TIMERS(6  J ; 

TIMERS [2 ] ; “TIMERS [ 2 ]*60; 

TIMERS [ 2 1 ; “TIMERS [2 ]+TIMERS [ 3 ) ; 

TIMERS ( 5 ] ; -TIMERS ( 5 ) -TIMERS ( 2 ) ; 

WRITEUP  (OUT, 'TOTAL  TIME:  '  .TIMERSUJ ,'  SECONDS'); 

END; 

WRITELN(OUT); 

IF  ANSWERO'Y'  THEN 
BEGIN 
REAULN; 

ERASE; 

END; 

END; 

PROCEDURE  EERO; 

BEGIN 
WITH  G“  DO 
BEGIN 

IF  NUMBER-0  THEN 
BEGIN 

IF  K-l  THEN 
BEGIN 

WKITELN(OUT); 

IF  PEDAGO  THEN 
BEGIN 

WRITELN(OUT,'HELP  WAS  SELECTED.'); 
WRITE(OUT, 'THE  OPTION  SELECTED  '); 
WRITELN(OUT, 'WHILE  IN  HELP  WAS:'); 

END 

ELSE 

BEGIN 

WRITELN(OUT,'AN  END  POINT  WAS  REACHED'); 


WRITELN(OUT,'THE  OPTION  SELECTED  WAS:'); 
END; 

END;  # 

END 


ELSE 

BEGIN 

IF  K=1  THEN 
BEGIN 

WRITELN(OUT); 

WRITKLN(OUT, 'JUNCTION  POINT  '.NUMBER); 

IF  PEDAGO  THEN  URITELN(OUT, 'PRIOR  TO  CORRECT  CHOICE:'); 
END 
ELSE 
BEGIN 

IF  PEDAGO  THEN 
BEGIN 

WRITELN(OUT, 'FOLLOWING  CORRECT  CHOICE:'); 

IF  CHOSENUl-O  TliEN  WR1TLLN(0UT, 'NONE  CHOSEN'); 

END; 

END; 

END; 

END; 

END; 

BEGIN 

START; 

FOR  L:-l  TO  F*,TEXTMANV121  DO 
BEGIN 
TIMEPHINT; 

FOR  l:-l  TO  EXTENT  DO 
BEGIN 

WITH  G*  DO 
BEGIN 

FOR  K:«l  TO  2  DO 
BEGIN 
GET(G); 

EERO; 

J:“l ; 

WHILE  (CHOSENiJjOO)  i\ND  (J<U)  DO 
BEGIN 

IF  NUMUER^-O  THEN  WRlTELN(OUT,SXiViE((CHOSENlJl)l ) 
ELSE 
BEGIN 

WRlTE(OUT,  'CHOICE  0'  .CHOSENU ) ) ; 

IF  REEPtjj  THEN  URlTE(OUT,'  KEPT  ') 

ELSE  WRlTE(OUt,'  NOT  KEPT'); 

IF  TIHEKSUi'^l  THEN 

WRITELNCOUT, '  (' ,TIMERS(J 1 , '  SECOND)') 

ELSE 

WRlTELN(OUT, '  ( '  .TlJlERS I J ) , '  SECONDS) '  ) ; 

END; 

J:=J+l; 

END; 

END; 

END; 

IF  «\NSWEU<>'\"  THEN 


K-9'J 


READLN 

ERASE; 

END; 

END; 

CLOSE (G, LOCK); 


writeln(out; 

WRITELN(OUT) 

WRITELN(OUT) 

WRITELN(OUT) 

END; 

CLOSE(F,LOCK); 

CLOSE(M,LOCK); 

D. 


aaBaBaPseeaaa  ««agasi» 


PROGRAM  ALIGN; 


USES  LIGHTPEN,  WORK; 

VAR  EQUAL,  SPACE,  XCH,  YCU,  I,  X,  Y; INTEGER; 

PROCEDURE  STUFF; 

BEGIN 

POKE (SPACE, 1024); 

POKE (XCH, 1025); 

POKE(EQUAL,1026); 

PLACE(X,1027); 

POKE(SPACE,1029); 

POKE (YCH, 1030); 

POKE (EQUAL, 1031); 

PLACE(Y,1032); 

POKE (SPACE, 1034); 

END; 

BEGIN 

SPACE; ---160; 

EQUAL: =253; 

XCH; =2 16; 

YCU: =2 17; 

ERASE; 

FOR  I:=l  TO  23  DO 
BEGIN 

WRITELN( '  •k***********************************it*’k* 
END; 

G0T0XY(0,0); 

FOR  I:-l  TO  2  DO 
BEGIN 

WRITELN('  ':40); 

END; 

FOR  I: -5  TO  23  DO 
BEGIN 

GOTOXY(0,(I-l)); 

WRlTE(l); 

END; 

G0TOXY(0,2); 

FOR  I: -I  TO  40  DO 
BEGIN 

IF  KIO  THEN  WRITE(l) 

ELSE 

BEGIN 

X:«I; 

X:»X  DIV  10; 

WRIXE(X); 

END; 

END; 

GOTOXY(0,3); 

WRITE('  ';9); 

G01‘0XY(9,3); 

FOR  X:=l  TO  4  DO 
BEGIN 

FOR  I;-l  TO  10  DO 
BEGIN 

WRlTE(I-l); 


K-102 


END; 
GOTOXY(10,11); 
WRITE('  PRESS  PEN 
REPEAT 
PENXY(TRUE); 
.■Y;=YHIRES; 

.  Y:»Y  DIV  8; 
Yj«Y+2; 
X:=XHIRES; 

X;«X  DIV  7; 
X:»X+1; 

STUFF; 

UNTIL  Y=20; 

EEASE; 


D. 


(*$S+*) 

UNIT  WORK;  INTRINSIC  CODE  27  DATA  28; 

INTERFACE 
USES  LIGHTPEN; 

PROCEDURE  HUNT(VAR  X,Y; INTEGER); 

PROCEDURE  ERASE; 

PROCEDURE  LINES(MANY: INTEGER); 

FUNCTION  RINGTOUCH: BOOLEAN; 

PROCEDURE  PEEK(  VAR  VALUE , ADDR : INTEGER) ; 

PROCEDURE  POKE( VALUE , ADDR : INTEGER) ; 

PROCEDURE  PLACE ( CURRENT , ADDR : INTEGER) ; 

IMPLEMENTATION 

TYPE  WINDOW=PACKED  ARRAY[0..0]  OF  0..255; 

VAR  HOLDX , HOLDY , HOLD , VALUE , I , ADDRESS : INTEGER ; 
pr  WINDOW; 

PROCEDURE  HUNT; 

BEGIN 

HOLDX :=0; 

HOLDY ;=0; 

HOLD:=0; 

WHILE  H0LDO5  DO 
BEGIN 

PENXY(TRUE); 

Y;»YHIRES; 

Yj-Y  DIV  8; 

Y:-Y+2; 

X;«XHIRES; 

X:«X  DIV  7; 

X:-X+l; 

IF  (Y-HOLDY)  AND  (X«hOLDX)  THEN  HOLD ; -HOLDfl 
HOLDX s-X; 

HOLDY J»Y; 

END; 

END; 

PROCEDURE  ERASE; 

BEGIN; 

WRI':E(CHR(i2)); 

END; 

PROCEDURE  LINES; 

BEGIN 

FOR  I;«l  TO  MANY  DO 
BEGIN 
WRITELN; 

END; 

END; 

FUNCTION  RINGTOUCH; 

BEGIN 

ADDRESS: =-16 170; 

MOVELEFT( ADDRESS , P , 2 ) ; 

IF  P*101>128  THEN  RINGTOUCH: “TRUE 
ELSE  RINGTOUCH: -FALSE; 


PROCEDURE  PEEK; 

BEGIN 

MOVELEFT(ADDR,P,2); 

VALUE  :=P'‘ [01; 

END; 

PROCEDURE  POKE; 

BEGIN 

M0VELEFT(ADDR,P,2); 

P"[0]:=VALUE; 

END; 

PROCEDURE  PLACE; 

BEGIN 

IF  CURRENKIO  THEN 
BEGIN 

POKE(160,ADDR); 

VALUE; =CURRENT+176; 
ADDR;=ADDR+1 ; 

POKE ( VALUE, ADDR); 

END 

ELSE 

BEGIN 

HOLD; -CURRENT; 

CURRENT; -HOLD  DIV  10; 
VALUE; -CURRENT+1 76; 

POKE (VALUE, ADDR); 

CURRENT ; -HOLD- ( CURRENT* 1 0 ) 
VALUE;-CURRENT+176; 
ADDR;-ADDR+l ; 

POKE( VALUE, ADDR); 
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Appendix  L,  Part  1:  Leadership  Principles  Test 

TEST 

Name  Group 

•  ———————— 

Please  look  at  all  three  questions  before  you  begin  this  test. 


1,  In  the  last  50  minutes,  you  have  learned  (or  been  reminded)  of  certain 

"principles"  that  you  as  a  leader  should  remember  when  dealing  with  people. 

List  as  many  of  these  "principles"  as  you  can  remember  in  the  space  below  (use 
the  back  of  the  page  if  necessary).  An  example  of  a  "principle"  might  be; 

"If  you  see  a  soldier  doing  an  outstanding  job,  see  that  he  gets  some  recognition". 
List  only  those  principles  which  were  taught  in  the  last  50  min. 


(Use  back  of  sheet  it  i»ece3;>ary . ) 


2 


2.  In  the  last  50  mvinutes,  you  have  learned  (or  been  reminded)  of  certain 
"principles"  that  should  help  you  in  performing  your  duties  as  an  Officer. 

List  as  many  of  these  "principles"  as  you  Cem  remember  in  the  space  below  (use 
the  back  of  the  page  if  necessary) .  An  example  of  a  "principle"  might  be : 
"Always  make  a  written  record  of  important  meetings". 

List  only  those  principles  which  were  taught  in  the  last  50  min. 

1. 


2. 


3. 


4. 


5. 


6. 


7. 


8. 


9. 


10. 


11. 


12. 


13. 


(Use  back  of  sheet  if  necessary.)  ^•“3 


In  the  last  50  minutes ,  you  have  learned  (or  been  reminded)  of  certain 
"facts"  about  how  the  Army  operates.  List  as  many  of  these  "facts"  as 
you  Cein  remember  in  the  space  below  (use  the  back  if  necessary) .  An  example 
of  such  a  "fact"  might  be:  "The  platoon  Leader  is  responsible  for  all  issued 
property  that  is  sub-hand  receipted  from  the  Compeiny  Ckmutumder  to  him". 

List  only  those  principles  which  were  taught  in  the  last  50  min. 

1.  ■  ■  ,  . ■,  . 


2. 


3, 


4. 


5. 


6. 


7. 


8. 


9. 


10. 


11. 


12. 


13. 


(Use  back  of  sheet  if  necessary.) 


1,-4 


f 


Appendix  L 


Part  2 


Name 


lOBC 


Service  # 


Group 


'I 


I 


LEADERSHIP  TRAINING 


PREFERENCE 


1.  How  much  do  you  think  you  would  learn  about  dealing  with  people 
using  the  following  approaches;  (Circle  one  in  each  row) 


Nothing 

Role  Playing:  1234 
Textbook;  1234 
Videodisc:  1234 


A  great  deal 
8  9 


2.  How  useful  are  the  following  three  types  of  leadership  training 
to  Second  Lieutenants  like  yourself?  (Circle  one  in  each  row) 


Useless 

Videodisc;  1  2 


Extremely 
useful 
8  9 


m 


Textbook: 


Role  Playing;  1234 


3.  How  did  the  training  keep  your  attention?  (Circle  one  in  each  row) 
Very  boring. 


Textbook : 


I  lost 
interest 
1  2 


It  was  very 
interesting 
9 


Videodisc : 


Role  Playing: 


A  A  .V-V  A>  *  ••  ♦*>*> .NkVfcV/'  -NA  A  _•*  .N  ••  •• 


4. 


How  motivated  did  the  training  methods  keep  you? 


( Circ le 

one 

in 

each  row) 

It  didn't 

It 

was  very 

motivate 

me . 

motivating. 

Textbook:  1 

2 

3 

4 

5 

6 

7 

8 

9 

Role  Playing:  1 

2 

3 

4 

5 

6 

7 

8 

9 

Videodisc:  1 

2 

3 

4 

5 

6 

7 

8 

9 

5.  In  terms  of  learning  about  Army  leadership,  I  think  that 

_ _  is  the  best  training  approach,  _ _ 

is  second  best,  and  _  is  third. 

(Fill  in  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 

d.  In  terms  of  keeping  ray  interest,  1  think  that  _ _ 

is  the  best  training  approach,  is  second  best 

and  is  third. 

(Pill  in  the  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 


7.  Would  you  prefer  to  see  a  mixture  of  the  throe  approaches  in 
the  Counseling  Laboratory? 

YES  NO 

8.  If  yes,  what  %?  _  Textbook 

*  _  Videodisc 

+ 


Role  Playing 


In  the  Role  Playing,  session  did  you  (check  one)_ 


Role  Play 
or 

just  watch 


When  you  were  shorn  the  videodisc  approach,  you  were  shown  two  teaching 
techniques.  The  Pedagogical  approach  provided  text  feedback  about  why  answers 
were  the  best  or  not  the  best  and  the  Experiential  allowed  events  go  on  with¬ 
out  too  much  interruption  (simulated  a  real  interaction) . 


Which  of  these  two  do  you  think  is  more  valuable  in  learning  leadership? 


Experiential 

or 

Pedagogical 


10.  Do  you  think  they  should  be  combined? 


Yes  or 


If  "Yes"  how  should  they  be  combined? 


11.  Evaluate  the  following  for  the  videodisc; 


Quality  of  Writing 
Quality  of  Filming 
Quality  of  Acting 
Quality  of  Feedback 


Distracted 

from 

Training 

1 


Contributed 

to 

Training 


approaches? 


Agreed  with 
none  of  the 
Training 


Role  Playing 

Textbook 

Videodisc 


13.  Do  you  have  any  comments  or  suggest  ions  for  leadership  training  or  the  way  thin 
research  was  conducted'. 


t 


I 


§ 


■'ST 


3 

4 

5 

6 

7 

8 

9 

Kj 

3 

4 

5 

6 

7 

8 

9 

« * « 

3 

4 

5 

6 

7 

8 

9 

♦ . 

Cv-i 

3 

4 

5 

6 

7 

8 

9 

m 

with  the 

content 

of  the 

training  for 

the 

three 

:y: 

Agreed  with 
all  of  the 

Training 

1 
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STATISTICAL  RESULTS  OF  THE  EVALUATION 
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Table  31 


Evaluation  1  (Mean  Ratings) 


Note:  *  denotes  £<.05 

n . s .  denotes  ^05 


Name 


Service  # 


Group 


lOBC 


LEADERSHIP  TRAINING 


PREFERENCE 


1.  How  much  do  you  think  you  would  learn  about  dealing  with  people 


using  the  following  approaches:  (Circle  one  in  each  row) 


Nothing 

Role  Playing;  1  2 


6  7 

▲ 


A  great  deal 
8  9  6. 75  I 


Textbook: 


6  7 


Videodisc ; 


6  7 

A 


2.  How  useful  are  the  following  three  types  of  leadership  training 


to  Second  Lieutenants  like  yourself?  (Circle  one  in  each  row) 


Useless 

Videodisc:  1  2 


Extremely 

useful 

8  9  6. 89 


Textbook: 


Role  Playing:  123 


3.  How  did  the  training  keep  your  attention?  (Circle  one  in  each  row) 
Very  boring. 

1  lost  It  was  very 

interest.  interesting. 


Textbook : 


Videodisc : 


Role  Playing:  123 


Evaluation  1  (Continued) 


4.  How  motivated  did  the  training  methods  keep  you? 

(Circle  one  in  each  row) 


It  didn't 
motivate  me. 
Textbook:  1  2 

Role  Playing;  1  2 

Videodisc:  1  2 


4  5 


4  5 


^  a’ 


It  was  very 
Motivating. 
8  9  4.48 

8  9  6.52 

8  9  7.05 


5.  In  terms  of  learning  about  Army  leadership,  I  think  that 


Role  Play  (42) 


is  the  best  training  approach,  videodisc  (36) 


is  second  best,  and  Text  (6) 


is  third. 


(Fill  in  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 


6.  In  terms  of  keeping  my  interest,  I  think  that  Videodisc  (47) 


is  the  best  training  approach.  Role  Play  (33) 


is  second  best 


and  Text  (3) 


is  third. 


(Fill  in  the  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 


7.  Would  you  prefer  to  see  a  mixture  of  the  three  approaches  in 
the  Counseling  Laboratory? 


YES 
92.  U 


8.  If  yes,  what  %? 


19.0% 


Textbook 


39 . 0%  Videodisc 

Role  Playing 


Evaluation  1  (Continued) 


In  the  Role  Playing. session  did  you  (check  one) ;  30.4%  Role  Play 

or 

69.6%  just  watch 


When  you  were  shown  the  videodisc  approach,  you  were  shown  two  teaching 
techniques.  The  Pedagogical  approach  provided  text  feedback  about  xvhy  answers 
were  the  best  or  not  the  best  and  the  Experiential  allowed  events  go  on  with¬ 
out  too  much  interruption  (simulated  a  real  interaction) . 

Which  of  these  two  do  you  think  is  more  valuable  in  learning  leadership? 

37.0%  Experiential 

or  ; 

63.0%  Pedagogical  ’ 

(Note:  only  Videodisc  subjects) 

Do  you  think  they  should  be  combined?  70.4%  yes  or  No 


If  "Yes"  how  should  they  be  combined? 


Evaluate  the  following  for  the  videodisc; 


Distracted 

from 

Training 

Quality  of  Writing  123 


Contributed 

to 

Training 

(Medians) 

A  5  6  ^7  8  9(6.81) 


Quality  of  Filming  1  2  3  A  5  6  A  ®  9(7.33) 
Quality  of  Acting  1  2  3  A  5  ^  A  ^  ^  9(6.71) 
Quality  of  Feedback  1  2  3  A  5  6  9(7.40) 


,  To  what  extent  did  you  agree  with  the  content  of  the  training  for  the  three 
approaches? 

Agreed  with  Agreed  with 

none  of  the  all  of  the 

Training  Training 

Role  Playing  1  2  3  A  5  ^  ®  9(6.86) 

A 

Textbook  I  2  3  A  ^  a  ^  8  n.s.  9(6.79) 

A 

Videodisc  1  2  3  A  5  6  ^  8  9(7.04) 

.  Do  you  have  any  comments  or  suggestions  for  leadership  training  or  the  way  thii* 
research  was  conducted? 
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Table  33 


Evaluation  2  (Mean  Ratings) 


Note:  *  denotes  £<.05 

n.s.  denotes  £^05 


lOBC 

LEADERSHIP  TRAINING 
PREFERENCE 


Name  _ 

Service  # 

Group  _ 

S# 


L.  How  much  do  you  think  you  would  learn  about  dealing  with  people 
using  the  following  approaches:  (Circle  one  in  each  row) 


Nothing 

Role  Playing:  1  2 


4  5 


A  great  deal 
8  9  7.02  I 


Textbook : 
Videodisc : 


4  5 

▲ 


4  5 


6  7 

▲ 


2.  How  useful  are  the  following  three  types  of  leadership  training 
to  Second  Lieutenants  like  yourself?  (Circle  one  in  each  row) 


Useless 

Videodisc:  1  2 


Extremely 
useful 
8  9  6.94 


Textbook  t 


Role  Playing:  123 


•ft- 


3.  How  did  the  training  keep  your  attention?  (Circle  one  in  each  row) 
Very  boring. 

1  lost  It  was  very 

interest.  interesting. 


Textbook : 

1 

2 

3 

6 

7 

8 

9 

4.40 

Videodisc : 

1 

2 

3 

4 

5 

6 

’a 

8 

9 

7.28 

Role  Playing: 

1 

2 

3 

4 

5 

6 

’a 

8 

9 

7.24 

4 


Evaluation  2  (Conti-nued) 


4.  How  motivated  did 

the 

training 

methods 

keep 

you? 

(Circle 

one 

in  each 

row)  . 

- 

It 

didn ‘ t 

It 

was 

very 

motivate  me 

• 

motivating. 

Textbook  t 

1  2 

3 

5 

6 

7 

8 

9 

3.i2 

* 

Role  Playing: 

1  2 

3 

4 

5 

6 

8 

9 

6.96 

* 

Videodisc : 

1  2 

3 

4 

5 

6 

a’ 

8 

9 

6.80 

5.  In  terms  of  learning  about  Army  leadership,  I  think  that 

Role  Play  (32) _  is  the  best  training  approach.  Videodisc  (14) 

Tfext  (2) 

is  second  best,  and  _  is  third. 

(Fill  in  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 

6.  In  terras  of  keeping  my  interest,  I  think  that  Rols  Play  (28) 

is  the  best  training  approach,  videodisc  (19)  is  second  best 

and  Text  (1) _  is  third. 

(Fill  in  the  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 


7.  Would  you  prefer  to  see  a  mixture  of  the  three  approaches  in 
the  Counseling  Laboratory? 

YES  NO 

88.0%  12.0% 


8.  If  yes,  what  %? 


19.4% 

+  36.4% 

+  ’ 
44.1% 


1  t»n% 


Textbook 

Videodisc 

Role  Playing 


Evaluation  2  (Continued) 


In  the  Role  Playing  .session  did  you  (check  one) ;  Role  Play 

ox 

41.7%  just  watch 


9.  When  you  were  shown  the  videodisc  approach,  you  were  shown  two  teaching 

techniques.  The  Pedagogical  approach  provided  text  feedback  about  why  answers 
were  the  best  or  not  the  best  and  the  Experiential  allowed  events  go  on  with¬ 
out  too  much  interruption  (simulated  a  real  interaction). 

Which  of  these  two  do  you  think  is  more  valuable  in  learning  leadership? 


23.5%  Experiential 


76.5% 


(Note:  only  Videodisc  subjects) 


Pedagogical 


10.  Do  you  think  they  should  be  combined? 


88.2%  Yes  or  11.8% 


If  "Yes”  how  should  they  be  combined? 


11.  Evaluate  the  following  for  the  videodisc; 


Distracted 

from 

Training 


(Quality  of  Writing 
Quality  of  Filming 
Quality  of  Acting 
Quality  of  Feedback 


Contributed 

to 

Training 

(Medians 

9(6.85) 

9<7.40) 


5(6.89) 
9(7.  38) 


12.  To  what  extent  did  you  agree  with  the  content  of  the  training  for  the  three 
approaches? 


Agreed  with 
none  of  the 
Training 


Agreed  with 
all  of  the 
Training 


Role  Playing 


Textbook 


Videodisc 


8  9  (7.23) 

8  n.s  9(5.96) 
8  *  9(7.26) 


13.  Do  you  have  any  comments  or  suggestions  for  leadership  training  or  the  way  thia 
research  was  conducted? 


Table  35 

Evaluation  3  (Mean  Ratings) 


Note:  *  denotes  £<.05 

n.s.  denotes  05 


Name 


Service  # 


lOBC 


LEADERSHIP  TRAINING 


PREFERENCE 


Group 


1.  How  much  do  you  think  you  would  learn  about  dealing  with  people 
using  the  following  approaches:  (Circle  one  in  each  row) 


Nothing 

Role  Playing:  1  2 
Textbook:  1  2 
Videodisc:  1  2 


A  great  deal 

7  8  9  7.  32  I 

A  I  * 


2.  How  useful  are  the  following  three  types  of  leadership  training 
to  Second  Lieutenants  like  yourself?  (Circle  one  in  each  row) 


Useless 

Videodisc:  1234 
Textbook:  1234 
Role  Playing:  1234 


Extremely 

useful 

S  6  ,  7  0  9  6.74 

5.  6  7  0  9  5.16 


6  7  8  9  7.74 


.s. 

)• 


3.  How  did  the  training  keep  your  attention?  (Circle  one  in  each  row) 
Very  boring. 

I  lost  It  was  very 

interest.  interesting. 

Textbook:  1  2  3  45  6  7  8  9 


Videodisc : 


7  8 

A 


Role  Playing:  1  2 


3  4 


7.92 


Evaluation  3  (Continued) 


4.  How  motivated  did  the  training  methods  keep  you? 

(Circle  one  in  each  row) 


It  didn't 
motivate  me. 

Textbook;  123 
Role  Playing ;  1  2  3 
Videodisc;  123 


4  5 

▲ 

4  5 

4  5 


It  was  very 
motivating. 
6  7  8  9  3.97 

6  ^  ®  ^  ‘^•5® 

6  7,  8  9  7.03 


* 


\n.s. 


5.  In  terms  of  learning  about  Army  leadership,  I  think  that 
Role  Play  (25)  is  the  best  training  approach,  videodisc  (13) 

is  second  best,  and  _  is  third. 

(Fill  in  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 


6.  In  terms  of  keeping  mv  interest,  I  think  that  Role  Play  (24) _ 

is  the  best  training  approach.  Videodisc  (14) _  is  second  best 

and  l>ext  (Q) _ ia  third. 

(Fill  in  the  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 


7.  Would  you  prefer  to  see  a  mixture  of  the  throe  approaches  in 
the  Counseling  Laboratory? 

YES  NO 

89. 10. St 

8.  If  yes,  what  %7  Textbook 

*  35. 3t  Videodisc 


4 


47. 


Role  Playing 


Evaluation  3  (Continued) 


3 


In  the  Role  Playing*  session  did  you  (check  one)  ;  34. 3%  Role  Play 

or 

65. 7%  just  watch 


9.  When  you  were  shown  the  videodisc  approach,  you  were  shown  two  teaching 
techniques.  The  Pedagogical  approach  provided  text  feedback  about  why  answers 
were  the  best  or  not  the  best  and  the  Experiential  allowed  events  go  on  with¬ 
out  too  much  Interruption  (simulated  a  real  interaction) . 

Which  of  these  two  do  you  think  is  more  valuable  in  learning  leadership? 

Experiential 

or 

Pedagogical 

(Note:  only  Videodisc  si±)jects) 

10.  Do  you  think  they  should  be  combined?  Yes  or  No 


If  "Yes"  how  should  they  be  combined? 


11.  Evaluate  the  following  for  the  videodisc; 


Distracted 

from 

Training 

Quality  of  Writing  1  2  3  4  5 


Contributed 

to 

Training 

(Medians) 

8  9(6*80) 


Quality  of  Filming  1  2 


34  5  6 


7 


9(7*63) 


Quality  of  Acting 


1  2 


3  4 


5  6 


A 


7  8 


9(6.80) 


Quality  of  Feedback  1 


2  3  4  5  6 


7  ^  8  9(7.62) 


12.  To  what  extent  did  you  agree  with  the  content  of  the  training  for  the  three 
approaches? 


Agreed  with 
none  of  the 
Training 


Agreed  with 
all  of  the 
Training 


Role  Playing 

Textbook 

Videodisc 


1  2 
1  2, 
1  2 


3  4 

3  4 

3  4 


5  6  7 


5 

5 


9  (7.92) 
n.^V  (6.32) 
9  (7.70) 


13.  Do  you  have  any  comments  or  suggestions  for  leadership  training  or  the  way  thin 
research  was  conducted? 


M-13 


Table  37 

Evaluation  4  {Mean  Ratings.) 


Name 


1:1. 

lUOv 


ll 

P 

It 

If 

Ife 


Note;  *  denotes  £  .05 

n.s.  denotes  £  .05 


lOBC 


LEADERSHIP  TRAINING 


PREFERENCE 


Service  # 


Group 


55 

Pi 

11 


1.  How  much  do  you  think  you  would  learn  about  dealing  with  people 


using  the  following  approaches:  (Circle  one  in  each  row) 


Nothing 

Role  Playing;  1  2 
Textbook;  1  2 
Videodisc;  1  2 


3  4.5 


3  4^5 

3  4  5 


A  great  deal 

789  7.25  I 

I  * 


6^  7 


2.  How  useful  are  the  following  three  types  of  leadership  training 
to  Second  Lieutenants  like  yourself?  (Circle  one  in  each  row) 


Useless 

Videodisc:  123 
Textbook;  123 
Role  Playing;  123 


Extremely 

useful 

8  9  6.52 


.5  6  7  8 


’  A® 


3.  How  did  the  training  keep  your  attention?  (Circle  one  in  each  row) 
Very  boring. 

1  lost  It  was  very 

interest.  interesting. 

Textbook;  1  2  3  4*5  67  8  9  4.27  .  1 


Videodisc ! 


Role  Playing;  1 


■'a  ® 


►  •*«•**  V  ■  *  » 


Evaluation  4  (Continued)  ’ 


4.  How  motivated  did  the  training  methods  keep  you? 

(Circle  one  in  each  row) 


It  didn't 
motivate  me. 
Textbook:  1  2 

Role  Playing:  1  2 

Videodisc;  1  2 


It  was  very 
motivating . 
8  9  3.66 

8  9  7. 14 

8  9  6.41 


★ 


n.s 


5.  In  terms  of  learning  about  Army  leadership,  I  think  that 

Role  Play  (23) _  is  the  best  training  approach.  Videodisc  (16) 

is  second  best,  and  Text  (5)  _  is  third. 

(Fill  in  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 

6.  In  terms  of  keeping  my  interest,  I  think  that  Role  Play  (26) 

is  the  best  training  approach,  Videodisc  (17) _  is  second  best 

and  Text  (1) _  is  third. 

(Fill  in  the  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 

7.  Would  you  prefer  to  see  a  mixture  of  the  three  approaches  in 
the  Counseling  Laboratory? 

YES  NO 

90.5%  9.5% 

8.  If  yes,  what  %?  17. 7%  Textbook 

*  36. 1%  videodisc 

+ 


45.9% 


Role  Playing 


Evalxoation  4  (Continued) 

In  the  Role  Playing,  session  did  you  (check  one) ;18,4%  Role  Play 

or  . 

81.6%  just  watch 


9.  When  you  were  shown  the  videodisc  approach,  you  were  shown  two  teaching 
techniques.  The  Pedagogical  approach  provided  text  feedback  about  why  answers 
were  the  best  or  not  the  best  and  the  Experiential  allowed  events  go  on  with¬ 
out  too  much  interruption  (simulated  a  real  interaction) . 

Which  of  these  two  do  you  think  is  more  valuable  in  learning  leadership? 

28.6%  Experiential 
or 

Pedagogical 

(Note:  only  Videodisc  subjects) 

10.  Do  you  think  they  should  be  combined?  Yes  or  No 


If  "Yes"  how  should  they  be  combined? 


11.  Evaluate  the  following  for  the  videodisc; 


Distracted 

from 

Training 

Quality  of  Writing  1  2 

Quality  of  Filming  1  2 

Quality  of  Acting  1  2 

Quality  of  Feedback  1  2 


3  4 

3  4 

3  4 

3  4 


5 

5 

5 


Contributed 

to 

Training 


6^7  8  9(6.69) 

6  ^7  8  9(6.96) 

6  7  8  9(5.11) 

6  ®  9(7.31) 


12.  To  what  extent  did  you  agree  with  the  content  of  the  training  for  the  throe 
approaches? 


Agreed  with 
none  of  the 
Training 


Agreed  with 
all  of  the 
Training 


Role  Playing 

Textbook 

Videodisc 


12  3 
I  2,  3 
1  2  3 


4  3  6 
4  5^6 
4  5  6 


8  ^*3 

* 


9  (7.24) 
9  (5.64) 
9 (6.95) 


13.  Do  you  have  any  cotiuttonts  or  suggcscinns  for  leadership  training  or  the  way  thin 
research  was  conducted? 


M-J  7 


Table  39 


EYaluation  5  (Mean  Ratings) 


1 


Note;  *  denotes  £<05 

n.s.  denotes  £j>.  05 


lOBC 

LEADERSHIP  TRAINING 
PREFERENCE 


Name  _ 

Service  # 

Group  _ 

S# 


1.  How  much  do  you  think  you  would  learn  about  dealing  with  people 
using  the  following  approaches;  (Circle  one  in  each  row) 


Nothing 

Role  Playing;  1  2 
Textbook;  1  2 
Videodisc;  1  2 


3 

3 

3 


A  great  deal 


6  7^  8 

6  7  8 

6  ^7  8 


9  7.32 

9  4.80 

9  6.79 


n.s. 


* 


2.  How  useful  are  the  following  three  types  of  leadership  training 


to  Second  Lieutenants  like 


Useless 

Videodisc;  1  2 
Textbook;  1  2 
Role  Playing:  1  2 


3 

3 

3 


4 

4 

4 


yourself? 


5  6  7 


(Circle  one  in  each  row) 

Extremely 

useful 

8  9  7.02 

* 

8  9  5.14  * 

8  9  7.71 

A 


* 


3.  HOW  did 

the  training 
Very  boring. 

1  lost 
interest . 

keep 

your 

Textbook : 

12  3 

4 

i 

Videodisc  t 

12  3 

4 

5 

Role  Playing 

i;  1  2  3 

4 

5 

attention?  (Circle  one  in  each  row) 

It  was  very 
interesting . 

6  7  8  9  4.98 

6  7  ^8  9  7.74 

6  ^  ^  7.86 


Evaluation  5  (Continvied) 


4.  How  motivated  did  the  training  methods  keep  you? 

(Circle  one  in  each  row) 


It  didn't 
motivate  me. 

Textbook;  123 


Videodisc : 


Role  Playing;  12345 


4  5 


It  was  very 
Motivating. 
789  4.57 


7^  8  9  7.40 


8  9  7.17 


5.  In  terms  of  learning  about  Army  leadership,  I  think  that 


Rple  Play  (22) 


is  the  best  training  approach,  Videodisc  (17) 


is  second  best,  and  Text  (2) 


is  third. 


(Fill  in  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 


6.  In  terms  of  keeping  my  interest,  I  think  that  ttole  Play  (21) 
is  the  best  training  approach.  Videodisc  (20)  second  best 

and  is  third. 


is  third. 


(Fill  in  the  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 


7.  Would  you  prefer  to  see  a  mixture  of  the  three  approaches  in 
the  Counseling  Laboratory? 


YES  NO 

95.0%  5.0% 


8.  If  yes,  what  %? 


16.4% 

36.1% 


47.4% 


Textbook 

Videodisc 


Role  Playing 


Evaluation  5  (Continued) 

In  the  Role  Playing,  session  did  you  (check  one) ;  20. 0%  Role  Play 


or 


80.0%  just  watch 


m 

k 


9,  When  you  were  shown  the  videodisc  approach,  you  were  shown  two  teaching 

techniques.  The  Pedagogical  approach  provided  text  feedback  about  why  answers 
were  the  best  or  not  the  best  and  the  Experiential  allowed  events  go  on  with¬ 
out  too  much  interruption  (simulated  a  real  interaction) . 


Which  of  these  two  do  you  think  is  more  valuable  in  learning  leadership? 

23.1% 


76.9% 


Experiential 

or 

Pedagogical 


1  m 

sva 


(Note;  only  Videodisc  subjects) 

10.  Do  you  think  they  should  be  combined? 


38.5%  Yes  or 


61.5%  No 


If  "Yes"  how  should  they  be  combined? 


i 

i 


i 


11. 


Evaluate  the  following  for  the  videodisc; 


Quality  of  Writing 
Quality  of  Filming 
Quality  of  Acting 
Quality  of  Feedback 


Distracted 

from 

Training 

1 


1 

I 

1 


2 

2 

2 

2 


12. 


approaches? 


Contributed 

to 

Training 

(^tedians) 

1 

3  4 

5 

6 

7 

9(7.36) 

Im 

3  4 

5 

6 

7 

9 (7. 70) 

m 

3  4 

5 

6 

7 

9(7.36) 

3  4 

5 

6 

7 

A  8 

9 (7.34) 

1 

with  the  content 

of 

the  training  for  the 

three 

Agreed  with 
none  u£  the 
Training 


Agreed  with 
all  of  the 
Training 


:V 


Role  Playing 

Textbook 

Videodisc 


4 

4 

4 


5 

5 

5 


6 

6 


8 

8 


r 


9  (7.50) 
.is  (6.33) 
9  (7.52) 


*  feV 


13.  Do  you  have  any  comments  or  suggestions  for  leadersliip  training  or  the  way  thin 
research  was  conducted? 


m 

T. 


NVA' 


Table  41 

Eyaluation  6  (Mean  Ratings) 


Note:  *  denotes  g_<. 05 

n.s.  denotes  £>.05 


lOBC 

LEADERSHIP  TRAINING 
PREFERENCE 


Name  _ 

Service  # 

Group  _ 

Sit 


\ 

1.  How  much  do  you  think  you  would  learn  about  dealing  with  people 
using  the  following  approaches:  (Circle  one  in  each  row) 


Nothing 

Role  Playing:  1  2 
Textbook:  1  2 
Videodisc;  1  2 


3 

3 

3 


A  great  deal 


6  7^  e 

6  7  8 
6^7  8 


9  7.17 

9  4.05 

9  6.51 


n.s. 


* 


2.  How  useful  are  the  following  three  types  of  leadership  training 


to  Second  Lieutenants  like 


Useless 

Videodisc:  1  2 
Textbook:  1  2 
Role  Playing;  1  2 


3 

3 

3 


4 

4 

▲ 

4 


yourself? 


(Circle  one  in  each  row) 

Extremely 

useful 

8  9  6.34  I  1 


8  9  4.20 

8  9  7.19 


* 


3.  How  did  the  training  keep  your  attention?  (Circle  one  in  each  row) 


Very  boring. 

X  lost 

It  was  very 

interest . 

interesting 

Textbook : 

12  3^  4 

5 

6  7 

0  8  3.29 

Videodisc  t 

12  3  4 

5 

^  a’ 

8  9  6.90 

7^8  9 


Role  Playing;  1234 


5  6 


7.45 


n.s. 


Evaluation  6  (Continued) 


4.  How  motivated  did  the  training  methods  keep  you? 

(Circle  one  in  each  row) • 


It 

didn ' t 

It 

was 

very 

motivate 

me . 

motivating. 

Textbook ; 

1 

2  3 

A 

4 

5 

6 

7  8 

9 

2.73 

* 

Role  Playing 

:  1 

2  3 

4 

5 

6 

► 

00 

9 

7.26 

Videodisc : 

1 

2  3 

4 

5 

7  8 

9 

6.15 

5.  In  terms  of  learning  about  Army  leadership,  I  think  that 

Role  Play  (28) _  is  the  best  training  approach.  Videodisc  (13) 

is  second  best,  and  Text  (0) _ _  is  third. 

(Fill  in  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 

6.  In  terms  of  keeping  my  interest,  I  think  that  Role  Play  (27) 

is  the  best  training  approach,  Videodisc  (15) _  is  second  best 

and  Text  (0)  _  is  third. 

(Fill  in  the  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 

7.  Would  you  prefer  to  see  a  mixture  of  the  three  approaches  in 
the  Counseling  Laboratory? 


YES  NO 

85.7^  14.3% 

8.  If  yes,  what  %?  13.8%  Textbook 

^  Videodisc 

+ 

50.7% 


100% 


Role  Playing 


3 


9. 


Evaluation  6  (Continued) 

In  the  Role  Playing. session  did  you  (check  one) ;  27. 3%  Role  Play 

or 

just  watch 


When  you  were  shown  the  videodisc  approach,  you  were  shown  two  teaching 
techniques.  The  Pedagogical  approach  provided  text  feedback  about  why  answers 
were  the  best  or  not  the  best  and  the  Experiential  allowed  events  go  on  with¬ 
out  too  much  interruption  (simulated  a  real  interaction) . 

Which  of  these  two  do  you  think  is  more  valuable  in  learning  leadership? 


10. 


41.7% 


58.3% 


Experiential 

or 

Pedagogical 


(Note:  only  Videodisc  subjects) 

Do  you  think  they  should  be  combined? 


76.9%  Yes  or 


23.1%  No 


If  "Yes'*  how  should  they  be  combined? 


11. 


Evaluate  the  following  for  the  videodisc; 


Distracted 

from 

Training 

Quality  of  Writing  1 

Quality  of  Filming  1 

Quality  of  Acting  1 

Quality  of  Feedback  1 


3 

3 

3 

3 


4 

4 

4 

4 


6 

6 

6 

6 


Contributed 

to 

Training 

(Medians) 
8  9(6.89) 

8  9(7.22) 

8  9(5.67) 

8  9(7.22) 


1.  *3 


12.  To  what  extent  did  you  agree  with  the  content  of  the  training  for  the  thre-J 
approaches? 


Agreed  with 
none  of  the 
Training 


Agreed  with 
all  of  the 
Training 


Role  Playing 

Textbook 

Videodisc 


3 

3 

3 


4 

4 

4 


6 

6 

6 


8 


9(7.54) 


8  n.sl.9(5.62) 

8  19(7.20) 


13.  Do  you  have  any  comments  or  suggestions  for  leadership  training  or  the  way  thio 
research  was  conducted? 


N-25 


Table  44 


Summary  Means  Cur  Leadership  Principles  Test 


ZtNOVil 

PILE  VlSt*StS 

SUBFILE  VI  V2  V3  VL 

*•*****«*••*(*  CELL  MEANS 
T 

ST  VISTA 
MOCE 


TOTAL  PCPULATION 


SC. 00 
(  312) 


VISTA 

(Evaluation  Replication  P) 

1 

2 

3  4 

SC. 00  30.00 

(  90)  (  SO 


SO. 00  SO.CO 
SB)  <  40 


50.00 
4S>  ( 


MODE (Videodisc)  (Text)  (Role  Play) 

1  2  3 

S2.30  4S.27  49. 4& 

<  103)  <  104)  (  103) 


MODE 

VISTA 

1 

< 

1 

S2.(1 

30) 

< 

2 

49. fO 
29) 

< 

3 

47.47 

31) 

2 

( 

54.40 

19) 

< 

47.22 

It) 

t 

42.02 

17) 

3 

t 

4«.fS 

11) 

< 

42.34 

13) 

( 

32.17 

14) 

4 

< 

SI, 21 
1$) 

< 

43.13 

IS) 

( 

53.32 

14) 

S 

t 

SS.77 

14) 

( 

47.40 

15) 

( 

4),Ct 

14) 

Scores) 


VS 


e  *  * 


6 


SO.CO 

41) 


Table  46 


,  Overall  Summary-  (Mean  Ratings) 

Name 


Note;  *  denotes  £<.05 

n.s.  denotes  £>.05 


lOBC 

LEADERSHIP  TRAINING 
PREFERENCE 


Service  # 

Group  _ 

S# 


i.  How  much  do  you  think  you  would  learn  about  dealing  with  people 
using  the  following  approaches;  (Circle  one  in  each  row) 


Nothing 

Role  Playing;  1  2 


Textbook ; 
Videodisc  t 


1 

1 


3 

3 

3 


4  5 

▲ 


6 

6 


A  great  deal 
8  9  7.08 


6  7 

A 


8 

8 


9 

9 


4,69 

6.60 


2.  How  useful  are  the  following  three  types  of  leadership  training 
to  Second  Lieutenants  like  yourself?  (Circle  one  in  each  row) 


Useless 

Videodisc:  1  2 


Textbook;  1  2 

Role  Playing;  1  2 


3 

3 

3 


5 

5 


‘  a’ 


Extremely 

useful 

8  9  6.77 


▲ 

4  5 


6 

6 


7 

7 


8 

8 


9 

9 


4.91 

7.33 


3.  How  did  the  training  keep  your  attention?  (Circle  one  in  each  row) 
Very  boring. 

1  lost  It  was  very 

interest.  interesting. 


Textbook ; 

1 

2 

3 

6 

7  8 

9 

4.44 

* 

Videodisc ; 

X 

2 

3 

4  5 

6 

9 

7.24 

n.s. 

Role  Playing; 

1 

2 

3 

4  S 

6 

9 

7.41 

Overall  Results  (Continued) 


4.  How  motivated  did  the  training  methods  keep  you? 

(Circle  one  in  each  row) 


It  didn't 
motivate  me. 
Textbook:  1  2 

Role  Playing:  1  2 

Videodisc:  1  2 


It  was  very 
motivating. 

8  9  3.94  j 

8  9  7.04  I 


6  ^7  8  9  6.80 


5.  In  terms  of  learning  about  Army  leadership,  1  think  that 


Role  Play  (172) 


is  the  best  training  approach,  Videodisc  (109) 


is  second  best,  and  Text  (15) 


is  third. 


(Pill  in  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 


6,  In  terms  of  keeping  my  interest,  I  think  that  Role  Play  (159) 


is  the  best  training  approach,  Videodisc  (132) 


is  second  best 


and  Text  (5) 


is  third. 


(Fill  in  the  blanks  with  Textbook,  Role  Playing,  and  Videodisc.) 


7.  Would  you  prefer  to  see  a  mixture  of  the  three  approaches  in 


the  Counseling  Laboratory? 


YES  MO 

90.5%  9.5% 


8.  If  yes,  what  %? 


17.6% 
36.  0% 


45.5% 


Textbook 

Videodisc 


Role  Playing 


Overall  Results  (Continued) 


In  the  Role  Playing*-  session  did  you 


(check  one)  ; 32.2% 
67.8% 


Role  Play 
or 

just  watch 


3 


9.  When  you  were  shown  the  videodisc  approach,  you  were  shown  two  teaching 
techniques.  The  Pedagogical  approach  provided  text  feedback  about  why  answers 
were  the  best  or  not  the  best  and  the  Experiential  allowed  events  go  on  with¬ 
out  too  much  interruption  (simulated  a  real  interaction) . 

Which  of  these  two  do  you  think  is  more  valuable  in  learning  leadership? 

.  Experiential 

or  } 

Pedagogical 

(Note:  only  Videodisc  subjects) 

10.  Do  you  think  they  should  be  combined?  67.4%  Yes  or  32.6%  nq 


If  "Yes'*  how  should  they  be  combined? 


11,  Evaluate  the  following  for  the  videodisc; 


Distracted 

from 

Training 


Quality  of  Writing 

1 

2 

3 

Quality  of  Filming 

1 

2 

3 

Quality  of  Acting 

1 

2 

3 

Quality  of  Feedback 

1 

2 

3 

•  To  what  extent 

approaches? 

did  you  agree 

with  the 

Agreed  with 
none  of  the 
Training 

Role  Playing 

I 

2 

3 

Textbook 

1 

2  , 

3 

Videodisc 

1 

2 

3 

Contributed 

to 

Training 


4 

5 

6 

8 

(Medians) 
9  (6*  86) 

4 

5 

6 

'a 

8 

9(7.  34) 

4 

5 

6 

A  ' 

8 

9(6.60) 

4 

5 

6 

’  A 

8 

9(7.38) 

content 

of 

the  training  for 

the 

three 

Agreed  with 
all  of  the 
Training 

4 

5 

6 

7 

A 

8 

9(7.29) 

4 

5 

6 

▲ 

7 

8 

n.  £ 

.9  (S.92) 

4 

5 

6 

'a 

8 

A 

9  (7.24) 

13.  Do  you  have  any  comments  or 
research  was  conducted? 


suggestions  for  leadership  training  or  the  way  thin 
H-32 


